Текущий архив: 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.013 c