Dateien senden und empfangen

[rollstuhlfahrer]

Danke für die nette (nicht falsch verstehen) Hilfe!
Ich hab ein paar Entwicklungen auf Clientseite gemacht:
Der Stream wurde duch eine einfache Dateiprozedur mit AssignFile()->Rewrite()/Append()->Write->CloseFile() ersetzt.
Das Bild kommt jetzt sauber an. Das einzige Problem dürfte jetzt noch sein, dass Server und Client auf dem selben Rechner laufen. Die Screenshots bekommen alle eine unerwünschte Rückkopplung (wenn man das Bild aufnimmt ...)

rollstuhlfahrer

PS: Kleine Änderungen:

Delphi-Quellcode:

procedure TForm1.ClientSocket1Read(Sender: TObject;
  Socket: TCustomWinSocket);
var text, reststr: string;
    f: textfile;
begin
    if Pos('ENDE', text) <> 0 then
      text := System.Copy(text, Pos('ENDE', text)-1, Length(text)-4);

    AssignFile(f, 'C:\temp_client.bmp');                   // Filename
    if FileExists('C:\temp_client.bmp') then
      Append(f)
    else
      Rewrite(f);   // Datei existiert beim ersten Aufrufen noch nicht

    Write(f, text);
    CloseFile(f);
  end;