procedure TForm1.Button2Click(Sender: TObject);
var
MS:TMemoryStream;
SL:TStringList;
S:String;
begin
MS:=TMemoryStream.Create;
SL:=TStringList.Create;
try
MS.LoadFromFile('c:\test.bmp');
Ms.Position:=64;
SetLength(S,Ms.size-64);
MS.ReadBuffer(PChar(S)^,MS.Size-64);
SL.Text := S;
SL.SaveToFile('c:\test.txt');
finally
SL.Free;
MS.Free;
end;
end;
????????????????????不明白