Текущий архив: 2003.12.23;
Скачать: CL | DM;
Вниз
IdUDPClient1.SendBuffer() Найти похожие ветки
← →
Горох (2003-10-24 18:41) [0]Такой вот вопрос!
Как с помощью IdUDPClient1.SendBuffer() передать некоторый небольшой файл ?
(IdUDPClient1.Send()-- передавать текст умею)
← →
Rouse_ © (2003-10-25 11:19) [1]Есть несколько вариантов, попробуй через потоки...
Желаю успехов
← →
Горох (2003-10-25 12:52) [2]Сам знаю что через потоки ! Но... ???!
← →
Rouse_ © (2003-10-25 13:43) [3]Вот код из моего компонента, правда UDP (лениво было TCP искать)
procedure TFWUDPSocket.Send(const Host: String; Port: Integer;
Data: TMemoryStream);
var
Buffer: array of Char;
Result: Integer;
begin
try
if not Initialize(FClient, Host, Port) then Exit;
SetLength(Buffer, Data.Size);
Data.Position := 0;
Data.ReadBuffer(Buffer[0], Data.Size);
Result := SendTo(FClient, Buffer[0], Data.Size, 0, FSockAddr, SizeOf(FSockAddr));
if Result = SOCKET_ERROR then
Error(ERR_SEND + WSAErrorToString(WSAGetLastError));
finally
SetLength(Buffer, 0);
DeInitialize;
if WSAGetLastError <> 0 then Error(WSAErrorToString(WSAGetLastError));
end;
end;
Короче думаю разберешся
Желаю успехов
← →
Tik (2003-10-25 14:15) [4]http://delphimaster.net/view/6-1064642742/
← →
Rouse_ © (2003-10-26 10:09) [5]> Tik (25.10.03 14:15) [4]
И чего это ты привел?
Страницы: 1 вся ветка
Текущий архив: 2003.12.23;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.018 c
