有重大發現 // Memo1->Lines->Text=int(InData.Red[ x ][ y ]); // Memo2->Lines->Text=int(InData.Green[ x ][ y ]); // Memo3->Lines->Text=int(InData.Blue[ x ][ y ]); 可以不使用 而且功能不變 因為昨天做出來的sum sumr = sumr + int(InData.Red[ x ][ y ]); sumg = sumg + int(InData.Green[ x ][ y ]); sumb = sumb + int(InData.Blue[ x ][ y ]); 已經是在做壘加了 所以註解掉memo目前為止我也沒發現有什麼影響
7 則留言:
我用Edit3->Text = VLAVIPlayer1->FramesCount; 可以顯示出影片總Frame
可是Edit2->Text = VLAVIPlayer1->CurrentFrame; 卻不能顯示目前的Frame
真奇怪
關於open檔案
我試出一個方法
VLAVIPlayer1->FileName = Edit6->Text;
換檔案路徑 可以用
影片目前Frame有了
原來是我寫錯地方 難怪他不會動
還有 影片的Start Stop Pause Resume
好像跟 抓點的迴圈 衝到 多按幾次就會掛掉了
找到改檔名的方法了
RenameFile("test.txt", Edit1->Text );
有重大發現
// Memo1->Lines->Text=int(InData.Red[ x ][ y ]);
// Memo2->Lines->Text=int(InData.Green[ x ][ y ]);
// Memo3->Lines->Text=int(InData.Blue[ x ][ y ]);
可以不使用 而且功能不變
因為昨天做出來的sum
sumr = sumr + int(InData.Red[ x ][ y ]);
sumg = sumg + int(InData.Green[ x ][ y ]);
sumb = sumb + int(InData.Blue[ x ][ y ]);
已經是在做壘加了 所以註解掉memo目前為止我也沒發現有什麼影響
ImageList用下列程式碼可載入
InBuffer.ToBitmap( Image1->Picture->Bitmap );
ImageList1->Add(Image1->Picture->Bitmap,NULL);
現在只差print出來
這張網頁的程式碼不知道用不用得到
http://delphi.ktop.com.tw/board.php?cid=168&fid=921&tid=91062
我覺得jow那段程式碼很神
張貼留言