Вниз
Скачать: 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.031 c
11-1143567562
Duber
2006-03-28 21:39
2007.01.14
В KOLmdvDBF не работает свойство LastUpdated


2-1167143408
vain
2006-12-26 17:30
2007.01.14
Запуздыривание в трей.


1-1163763391
DelphiLexx
2006-11-17 14:36
2007.01.14
DBGridEh.OnDrawColumnCell не работает отрисовка при потере фокуса


2-1166765004
Философ Огня
2006-12-22 08:23
2007.01.14
InterBase SQL. Узнать количество записей.


15-1166720327
Я из ФСБ :)
2006-12-21 19:58
2007.01.14
детектор движения




   Наверх