Das Problem ist nicht unbedingt das senden sondern das empfangen ...
So sende ich das Bild :
Delphi-Quellcode:
procedure TForm1.Timer1Timer(Sender: TObject);
var MStream : TFileStream;
Bild : TBitmap;
begin
MStream := TFileStream.Create('screen.bmp',fmcreate);
Bild := Image2.Picture.Bitmap;
MStream.Write(Bild,sizeof(MStream));
BildClient.SendStream(MStream); // BildClient := TSimpleTCPClient
MStream.Free;
end;
Das funktioniert auch aber das empfangen funktioniert nicht ... :
Delphi-Quellcode:
procedure TForm1.BildServerClientRead(Sender: TObject;
Client: TSimpleTCPClient; Stream: TStream);
var Bild : TBitmap;
begin
Stream.Read(Bild,Stream.Size);
Form3.Image1.Picture.Bitmap := Bild;
end;
Entweder bekomme ich jede menge Zugriffsverletzungen-Fehler oder wenn ich es ewas anders mache andere Fehler aber es funktioniert nie ...
Was mache ich falsch ?