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;