Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 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.017 c
1-75238
Борец Анатолий
2003-12-10 16:21
2003.12.23
Memo-поле


1-75259
selena
2003-12-10 08:11
2003.12.23
кодировка


14-75370
trotski
2003-11-28 23:10
2003.12.23
Активация формы и еще кое-что


1-75156
UPR
2003-12-10 03:34
2003.12.23
Edit и кнопка Tab


1-75173
Daka
2003-12-11 19:25
2003.12.23
MS Word and MS Excel who i can create a document !