Вниз
Скачать: CL | DM;

Asynchronous socket error 10061   Найти похожие ветки 

← →
VolanD666   (2006-08-16 17:27) [0]

Ставлю ClientSocket и Button. В Button`е пишу:

srcfile:=TFileStream.Create("c:\file.txt", fmOpenRead);
ClientSocket1.Host:="192.168.20.1";
ClientSocket1.Open;
ClientSocket1.Socket.SendStream(srcfile);
ClientSocket1.Close;
srcfile.Free;


В другом приложении пишу в ServerSocket1ClientRead:

var
 l: Integer;
 buf: PChar;
 src: TFileStream;
begin
 l :=Socket.ReceiveLength;
 GetMem(buf,l+1);
 Socket.ReceiveBuf(buf,l);
 src := TFileStream.Create("C:\file.exe",fmOpenReadWrite);
 src.Seek(0,soFromEnd);
 src.WriteBuffer(buf,l);
 src.Free;
 FreeMem(buf);


Но "Asynchronous socket error 10061" не дает мне радоваться успешной передаче файла. :( Почему?


← →
Dmitrij_K   (2006-08-16 17:32) [1]

Потомучто ClientSocket1 работает в асинхронном режиме
Команда ClientSocket1.Open; не ждет пока откроется соединение, и далее ты пытаешься отсылать данные в некуда

чтобы работало установи ClientSocket1 в длокируюший режим, или Отсылай файл по событию OnWrite


← →
Dmitrij_K   (2006-08-16 17:35) [2]

Кажется так
ClientSocket1.ClientType := ctBlocking;


← →
Сергей М. ©   (2006-08-17 08:09) [3]


> VolanD666   (16.08.06 17:27)


Кр.того метод ReceiveLength() работает не так как ты предполагаешь. Это может привести к записи в файл "мусора".
Посмотри внимательно справку.



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

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



Память: 0.45 MB
Время: 0.029 c
9-1141072759
Slava_K
2006-02-27 23:39
2007.01.14
Движение объектов


2-1167052236
Trible
2006-12-25 16:10
2007.01.14
отослать сообщение процесу, созданного с CreateProcess


15-1166961931
Ксардас
2006-12-24 15:05
2007.01.14
Есть ли теорема, подобная теореме Виета для корней кв. уравнения,


3-1161765448
Flash_80
2006-10-25 12:37
2007.01.14
Из Query в Excel?


15-1166630309
vidiv
2006-12-20 18:58
2007.01.14
борьба со спамом. идея 2.




   Наверх