| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
IdUDPClient1.SendBuffer() [D7]
Горох © (2003-10-24 18:41:00)
Такой вот вопрос!
Как с помощью IdUDPClient1.SendBuffer() передать некоторый небольшой файл ?
(IdUDPClient1.Send()-- передавать текст умею)
Rouse_ (2003-10-26 10:09:00) [1]
> Tik (25.10.03 14:15) [4]
И чего это ты привел?
Tik (2003-10-25 14:15:00) [2]http://www.delphimaster.ru/cgi-bin/forum.pl?id=1064642742&n=4
Rouse_ (2003-10-25 13:43:00) [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;
Короче думаю разберешся
Желаю успехов
Горох (2003-10-25 12:52:00) [4]
Сам знаю что через потоки ! Но... ???!
Rouse_ (2003-10-25 11:19:00) [5]
Есть несколько вариантов, попробуй через потоки...
Желаю успехов
| |
