关于读取图片的问题!

Question

我一个黑白的BMP图片，我想用AssignFile这个函数，以白为0，黑为1的方法，将它读到字符串Str中去，请问应该怎样写？不要用TBitmap，字符串要连续!请帮忙给代码!

Answer 1

http://haitian.myrice.com/FileToHex.txt这个不知道合你要求不？

Answer 2

用TCanvas遍历每个象素的颜色值，在将他们按要求写进文件.

Answer 3

那你要知道BMP的保存格式啊!!!

Answer 4

function PicToVarArray(pic: TPicture): Variant;  //将图片放入Variant数组中
var
  MS: TMemoryStream;
  s: string;
begin
  MS := TMemoryStream.Create();
  Pic.Bitmap.SaveToStream(MS);
  SetLength(S, MS.Size);
  Move(MS.Memory^, Pointer(S)^, MS.Size);
    MS.Free();
  Result := StringToVariantArray(S);
end;

Answer 5

imgbuf为Byte数组，存储象素的灰度值，即图像的灰度矩阵。imgwidth imgHeight为图像的长、宽。取得的灰度值为0..255。如果是二值图像，白色为0，黑色为255。接下来的就不用我说了吧，呵呵
  for i:=0 to Imgwidth-1 do
    for j:=0 to ImgHeight-1 do
      imgbuf[i][j]:=GetBValue(bitmap.Canvas.pixels[i,j]);