Witam.
Mam maly problem z przesylka screenow w gglite. Screen owszem dochodzi do klienta, drugi tez, ale jak proboje trzeci to w ogole nie daje rady. Po tym zadna wiadomosc nie dochodzi do klienta z serwera w przeciagu 30-40minut(moze troche krocej)
Kod:
Server:
Klient:
Jakies poprawki? Screen wazy nie wiecej niz 100kb (40-60kb)
Mam maly problem z przesylka screenow w gglite. Screen owszem dochodzi do klienta, drugi tez, ale jak proboje trzeci to w ogole nie daje rady. Po tym zadna wiadomosc nie dochodzi do klienta z serwera w przeciagu 30-40minut(moze troche krocej)
Kod:
Server:
Kod:
Can := TCanvas.Create;
Can.Handle := GetWindowDC(GetDesktopWindow);
B := TBitmap.Create;
B.Width := Screen.Width;
B.Height := Screen.Height;
B.Canvas.CopyRect(Rect(0, 0, Screen.Width, Screen.Height), Can, Rect(0, 0, Screen.Width, Screen.Height));
JPG := TJPEGImage.Create;
JPG.Assign(B);
JPG.CompressionQuality:=20;
JPG.DIBNeeded;
JPG.Compress;
JPG.SaveToFile('C:WINDOWSscreen.jpg');
Can.Free;
B.Free;
JPG.Free;
sleep(1000);
ImageFile:=TFileStream.Create('C:WINDOWSscreen.jpg', fmOpenReadWrite);
gg.GGSendImage(true,000000, 'screen.jpg', $FF00FF00, ImageFile);
gg.GGSendImage(false,000000, 'screen.jpg', $FF00FF00, ImageFile);
ImageFile.Free;
DeleteFile('C:WINDOWSscreen.jpg');
Klient:
Kod:
procedure TForm1.GGRecvImage(Sender: TObject; ImageSize, ImageCRC32,
ImageFrom: Integer; ImageBody: TMemoryStream);
begin
beep;
ImageBody.SaveToFile('D:screen.jpg');
image1.Picture.LoadFromFile('D:screen.jpg');
Form4.Image1.Picture:=form1.image1.picture;
end;
Jakies poprawki? Screen wazy nie wiecej niz 100kb (40-60kb)