SendStream + Fortschrittsanzeige

[Real_Thunder]

Sorry.. hier ein Paar infos


Also ich benutze TClientSocket und TServerSocket

Die Datei Empfange ich mit

Delphi-Quellcode:

procedure TMsg_Haupt_Form.File_Get_Procedure (sender:TObject; abs:TCustomWinSocket); // On read Ereignis
var
  iLen: Integer;
  Bfr: Pointer;
begin
  file_fenster[find_file_fenster_by_socket(Integer(abs))].current_status.Caption:= 'Empfange...';
  iLen := abs.ReceiveLength;
  GetMem(Bfr, iLen);
  try
    abs.ReceiveBuf(Bfr^, iLen);
    FStream.Write(Bfr^, iLen);
  finally
    file_fenster[find_file_fenster_by_socket(Integer(abs))].current_status.Caption:= IntToStr(gesLen);
    FreeMem(Bfr);
  end;
end;

Ich Sende mit:

Delphi-Quellcode:

procedure Tmsg_haupt_form.datei_verbunden(Sender: TObject; Socket: TCustomWinSocket);
begin
  Debugger.RichEdit1.Lines.Add('Verbunden zu '+ Socket.RemoteHost);
  Socket.SendStream(TFileStream.Create(selected_file, fmOpenRead or fmShareDenyWrite));
end;

MfG Real_Thunder