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;