Скачать: CL | DM;

winsock - recv   Найти похожие ветки 

← →
NORDmen ©   (2006-04-28 19:28) [0]

программа должна передавать файлы по сети через сокеты используя winsock. если у вас есть примеры или любая инфа по сабжу (без компонент), то поделить плз, очень надо.

а пока что приходится разбираться во всем самому :)
в обшем, использую асинхронный режим (правильно делаю? в синхронном все тормозится) и ловлю сообшения от сокета:
procedure TForm1.WMSocketEvent(var Msg:TMessage);
а что делать при сообшении FD_Accept (пример данных)???
в обших чертах я знаю, но что КОНКРЕТНО делать?

другой комп посылает файл при помоши TransmitFile.
(в msdn написано надо так)

---

← →
Eraser ©   (2006-04-29 02:51) [1]

> NORDmen ©   (28.04.06 19:28)

объясни, почему "без компонент", зачем себе жизнь усложнять? может ещё и на ассемблере писАть...?

---

← →
Delphi_is_cool ©   (2006-04-29 22:51) [2]

> а что делать при сообшении FD_Accept (пример данных)??? в обших чертах я знаю, но что КОНКРЕТНО делать?

Незнаю что конкретно делать, но примерно следующее:

...
var
 Form1: TForm1;
 ClientSocket: TSocket = INVALID_SOCKET;

implementation

{$R *.dfm}
..
procedure TForm1.WMSocketEvent(var Msg: TMessage);
begin
 with Msg do
   case lParam of
     FD_ACCEPT: begin
       ClientSocket := accept(ServerSocket, nil, nil);
       if ClientSocket = INVALID_SOCKET then
         ShowMessage(SysErrorMessage(WSAGetLastError));
     end;
   end;
end;

А принимать данные надо в момент когда произойдёт событие FD_READ.

---

← →
nordmen ©   (2006-04-30 13:36) [3]

Eraser, так формулируется задание лабораторной.
я нигде не нашел решение сабжа без компонент.
делаю сам, но возникают проблемы с буфером :(

Delphi_is_cool, спасибо :)
если сделаю обязательно выложу решение.

---

← →
Eraser ©   (2006-04-30 15:25) [4]

> nordmen ©   (30.04.06 13:36) [3]

http://fun-soft.ra-doersch.de/index.php?mod=forum&kuerzel=archiv&action=thread&id=402&PHPSESSID=lr2gv4b35kal92 5sers4dvb960

а вообще гугл рулит :)

---

← →
grisme ©   (2006-05-01 09:28) [5]

Eraser ©   (30.04.06 15:25) [4]
Дер партизанен нихт капитулирэн? :0)

---

← →
Eraser ©   (2006-05-01 12:01) [6]

> grisme ©   (01.05.06 09:28) [5]

чтобы ссылка работала - скопируй вручную в адресную строку, подозреваю, что "5sers4dvb960" это тоже часть адреса :)))

---

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

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.027 c