Форум: "Сети";
Текущий архив: 2002.04.25;
Скачать: [xml.tar.bz2];

Вниз

Нужно напистать....   Найти похожие ветки 

← →
avk   (2002-02-12 18:08) [9]

что-то не работает посылка..

procedure TForm1.Timer1Timer(Sender: TObject);
var bmp:TBitMap;
MySocket:TWinSocketStream;
begin
bmp:=TBitmap.Create;
try
if BitBlt (bmp.Canvas.Handle, 0, 0, bmp.Width, bmp.Height, GetDC (GetDesktopWindow), 0, 0, SRCCOPY) then
begin
MySocket:=TWinSocketStream.Create(Socket,6000);
while not MySocket.WaitForData(100) do Application.ProcessMessages;
MySocket.Write(bmp,100000);
end;
finally
bmp.Free;
end;

Прием

procedure TForm1.Button4Click(Sender: TObject);
var MySocket:TWinSocketStream;
bmp_client:TBitMap;
begin
MySocket:=TWinSocketStream.Create(Socket,60000);
while not MySocket.WaitForData(100) do Application.ProcessMessages;
MySocket.Read(bmp_client,100000);
MySocket.Free;
end.

на сколько я понял вроде так...хотя может здесь вообще все не прально
где ошибки не подскажете?

---

Страницы: 1 вся ветка

Форум: "Сети";
Текущий архив: 2002.04.25;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.43 MB
Время: 0.006 c