Люди прошу помощи...
Суть дела: есть приложение, состоящее из сервера и клиентской части. При подключении к серверу клиент пересылает свои параметра: имя, id... Сервер добавляет все в базу данных и пр....
Потом когда к серверу подключатся все клиенты, сервер отсылает им всем файл. Ну и вот на этом шаге заковырка 
Выдает ошибку: "Запрос на отправку или получение данных (when sending on a datagram socket using a sandto call) (10057)".
Что это? Как бороться?
код сервера:
| Код |
procedure TFProc.SpeedButton1Click(Sender: TObject);
var ms: TMemoryStream;
begin
ms:= TMemoryStream.Create;
try
ms.LoadFromFile(FLogin.sPath+'\Library\'+Lib_dialog.for_use+'.test');
ms.Position:= 0;
ServerSocket1.Socket.SendText(IntToStr(ms.Size) + #0); //вот здесь, на отправке текста вылезает ошибка!
ServerSocket1.Socket.SendStream(ms);
except
ms.Free;
end;
end;
|
код клиента:
| Код |
var s, sl: string;
begin
s:= Socket.ReceiveText;
if not Reciving then
begin
SetLength(sl, StrLen(PChar(s))+1); // +1 for the null terminator
StrLCopy(@sl[1], PChar(s), Length(sl)-1);
DataSize:= StrToInt(sl);
Data:= TMemoryStream.Create;
Data.SaveToFile(sPath+'\data.tmp');
Delete(s, 1, Length(sl));
Reciving:= true;
end;
try
Data.Write(s[1], length(s));
if Data.Size = DataSize then
begin
Data.Position:= 0;
Data.Free;
Reciving:= false;
Socket.Close;
end;
except
Data.Free;
end;
end;
|
Код брал из DRKB ничего не изменял. Это текст "тестовой" версии, здесь отправка одному клиенту, но если это заработает, то сделать массовую отправку легко.
Что самое смешное, когда делал прогу чтобы чисто потестить этот код (пересылки файла), то все работало... Где же здесь грабли?  |
