delphi7中编写一个基于clx的文件上传的程序

Question

请大家帮帮忙啊，最好能给个例子！

Answer 1

procedure TForm1.TcpServer1Accept(sender: TObject;
  ClientSocket: TCustomIpClient);
var
  sTemp:string;
  bufRecv:Pointer;
  iRecvLength:Longint;
  fsRecv:TFileStream;
begin
  fsRecv:=TFileStream.Create('c:\\my.jpg',fmCreate);
  sTemp:=ClientSocket.Receiveln;
  showmessage(sTemp);
  GetMem(bufRecv,200000);
  iRecvLength:=StrtoInt(sTemp);
  try
      ClientSocket.ReceiveBuf(bufRecv^,iRecvLength);
      fsRecv.WriteBuffer(bufRecv^,iRecvLength);
  finally
    FreeMem(bufRecv,200000);
  end;
  showmessage('finish');
end;
我这一个是可以的，但是上传文件的大小是正确的，就是无法读出的，都是乱码