将收到的数据存在一个内存流中,将该流存为文件即可.(大至是这样,随手写的)
var
Form1: TForm1;
Mrar:TMemoryStream;
implementation
{$R *.dfm}
procedure TForm1.Comm1ReceiveData(Sender: TObject; Buffer: Pointer;
BufferLength: Word);
begin
if Mrar.Write(Buffer^,bufferlength)<=10 then
begin
Mrar.SaveToFile('c:\a.rar');
mrar.Free;
end;
end;