各位先進: 我目前測試讀入圖檔後, 將資料轉給另一個圖檔時, 在16 COLOR時沒問題, 但在256 COLOR時, 卻是模糊的畫面, 程式如下, 請各位高手指點(因是測試, 故不用SAVETOFILE處理) procedure TForm1.Button1Click(Sender: TObject); var i,j:Integer; Test,B:TBitmap; P,M:PByteArray; begin B := TBitMap.Create; B.LoadFromFile('aa.bmp'); // Test:=TBitMap.Create; Test.Width:= b.Width ; Test.Height:= b.Height ; Test.PixelFormat:=pf8bit; //pf4bit的圖檔無問題 for j:=0 to Test.Height-1 do begin P:=Test.ScanLine[j]; m:=B.ScanLine[j]; for i:= 0 to Test.Width-1 do begin P[i]:=m[i]; end; end; Image2.Canvas.Draw(0,0,Test); Test.Free; end;

你好:    直接 Assign 到 Image2.Picture 不行嗎 ?

  try
    B := TBitMap.Create;
    B.LoadFromFile('aa.bmp');
    B.PixelFormat:=pf8bit;
    Image2.Picture.Assign(B);
  finally
    B.Free;
  end;

您好: 因為我主要是測試將圖檔載入之後, 要利用ScanLine的方式將圖檔繪出. 所以才不用直接讀取圖檔的方式(可能會改變資料). ps: 有客戶是希望可以將讀取的資料轉成圖檔, 故目前在做這方面的測試.