如何将TIF格式的图像文件转化为数据文件?或字节?

解决方案 »

  1.   

    TIF格式的图像文件本身就是数据文件
      

  2.   

    var
      F: file;
      Buff: PChar;
      Fsz: Cardinal;
      BFile:array of byte;
      i:Cardinal;
    begin
        AssignFile(F,'c:\a.tif');
        Reset(F, 1);
        Fsz := FileSize(F);
        GetMem(buff, Fsz);
        try
            BlockRead(F, buff^, Fsz);
            setlength(BFile,Fsz);
            for i := 1 to Fsz do
            begin
                BFile[i]:=Byte(buff[i]);   //BFile以字节(byte)数组的形式返回文件的内容
            end;
        finally
            FreeMem(buff);
            CloseFile(F);
        end;
    end;
      

  3.   

    to:
    lincanwen(密码错误)
    给你100分,不管对错,肯真正解答问题就是分!