Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2006.09.17;
Скачать: 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 вся ветка

Текущий архив: 2006.09.17;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.048 c
2-1156415598
XTD
2006-08-24 14:33
2006.09.17
Присвоить знач. при OnCreate form1, form2.label1.Text:=’12’(ошибк


2-1156831892
Edu1982
2006-08-29 10:11
2006.09.17
Delphi & MySQL


2-1156508100
Arsenija
2006-08-25 16:15
2006.09.17
Выбор директории


15-1156794095
Pazitron_Brain
2006-08-28 23:41
2006.09.17
Как распечатать 3х4 фотографию?


3-1151673867
Juice
2006-06-30 17:24
2006.09.17
Ошибка: dbexpress error 0x0005 operation not supported