Indy TCP und Write-/ReadStream-Methode

[DataCool]

Hi,

versuch mal in der procedure Button1Click folgendes einzubauen :

Code:

procedure TForm1.Button1Click(Sender: TObject);
var
  fs: TFileStream;
begin
  if not OpenDialog1.Execute then exit; 
  with IdTCPClient1 do
  begin
    fs := TFileStream.Create(OpenDialog1.FileName, fmOpenRead or fmShareDenyWrite);
    try
      Connect;
      if Connected then begin
        try
          // Write Buffer öffnen
          OpenWriteBuffer;
          // Stream in Buffer schreiben
          WriteStream(fs);
          CloseWriteBuffer;
          // Buffer schliessen, Buffer wird dann automatisch abgeschickt
        except // fehlermeldung end;
      end;
    finally
      Disconnect;
      fs.Free;
    end;
  end;
end;

Gruß Data