有關圖片顯現...... |
|
答題得分者是：taishyang
|
|
papy
一般會員   發表：5 回覆：7 積分：2 註冊：2004-08-23 發送簡訊給我 |
我的想法是想把圖片讀出pixel值存入.txt檔中,在從.txt檔中讀出pixel值,
顯現出原本的圖片,但問題是只顯現出原本的1/3,所以想請問各位,我的問題
是出在那......謝謝!! void __fastcall TForm1::Button2Click(TObject *Sender)
{
//取
Image2->AutoSize=false;
Image2->Stretch =true;
Graphics::TBitmap* BMP = new Graphics::TBitmap();
BMP->PixelFormat=pf24bit;
BMP->Height=350;
BMP->Width=350;
TStringList* RawData=new TStringList();
RawData->LoadFromFile("text.txt");
Byte* ptr=NULL;
int i=0;
for (int y=0;y<350 ;y )
{
ptr=(Byte*)BMP->ScanLine[y];
for (int x=0;x<350 ;x )
{
ptr[x]=RawData->Strings[i].ToInt();
ptr[x]=RawData->Strings[i].ToInt();
ptr[x]=RawData->Strings[i].ToInt();
i ;
}
} Image2->Picture->Assign(BMP);
delete BMP;
delete RawData; }
//---------------------------------------------------------------------------
|
|
taishyang
站務副站長   發表：377 回覆：5490 積分：4563 註冊：2002-10-08 發送簡訊給我 |
|
|
papy
一般會員 發表：5 回覆：7 積分：2 註冊：2004-08-23 發送簡訊給我 |
|
|
papy
一般會員 發表：5 回覆：7 積分：2 註冊：2004-08-23 發送簡訊給我 |
|
|
taishyang
站務副站長 發表：377 回覆：5490 積分：4563 註冊：2002-10-08 發送簡訊給我 |
您好:
ptr[x]=RawData->Strings[i].ToInt(); ptr[x 1]=RawData->Strings[i].ToInt(); ptr[x 2]=RawData->Strings[i].ToInt(); 改成 ptr[x*3]=RawData->Strings[i].ToInt(); //ptr[x*3]為B ptr[x*3 1]=RawData->Strings[i].ToInt(); //ptr[x*3 1]為G ptr[x*3 2]=RawData->Strings[i].ToInt(); //ptr[x*3 2]為R順心 |
|
papy
一般會員 發表：5 回覆：7 積分：2 註冊：2004-08-23 發送簡訊給我 |
|
|
taishyang
站務副站長 發表：377 回覆：5490 積分：4563 註冊：2002-10-08 發送簡訊給我 |
|
|
papy
一般會員 發表：5 回覆：7 積分：2 註冊：2004-08-23 發送簡訊給我 |
發表時間：2004-08-23 18:03:59
IP:218.175.xxx.xxx 未訂閱
系統時間：2024-07-03 17:47:30
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |