Dateiaustausch zwischen clientsocket und serversocket..^^

[cRayZo]

also hier meine "produktion" hüstel
ich hab mit type gearbeitet, ich weiß dass man das eig. nicht macht, aber ich hab iwie alles schon ausprobiert, und dann eben auch das.. naja

Client onklick

Delphi-Quellcode:

type
testrecord=record
var
screen:TBitmap;
begin
Varscreen: TBitmap; sendscreen:Testrecord;

with sendscreen do begin screen:=Varscreen; end;
Clientsocket1.Socket.SendBuf(Varscreen,SizeOf(Sendscreen));

Server onread

Delphi-Quellcode:

var
receivetext: string;
screnVar:TBitmap; incomScreen:testRecord;
begin
   QueryMemo.Lines.Add(DateTimeToStr(Now)+' Uhr: Bild wird geladen');
   socket.receivebuf(incomScreen, SizeOf(incomScreen)) ;
   with incomScreen do begin
   screnVar:=screen;
   end;
  // Image1.Picture.Assign(screnvar);
   image1.Picture.Bitmap:=screnVar;

   QueryMemo.Lines.Add(DateTimeToStr(Now)+' Uhr: Bild erhalten'); except showmessage('x'); end;