| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Программеры подскажите (примером) КАК ПЕРЕСЛАТЬ ФАЙЛ?? [D7]

KvORubin ©   (2005-12-23 14:58:00) 

Это посылка текста..
//

procedure TForm1.ServerSocket1ClientRead(Sender: TObject; Socket:
 TCustomWinSocket);
var
 Str: string;
 RemIP: string;
begin
 RemIP := Socket.RemoteAddress;
 Str := Socket.ReceivedText;
end;

Для посылки сообщения с сервера клиентам:

procedure TForm1.SendMes(Text: String);

var
 i: byte;
begin
 with ServerSocket1.Socket do
 begin
   if ActiveConnections>
   0 then
     for i := 0 to ActiveConnections - 1 do
     try
       Connections[i].SendText(Text);
       Application.ProcessMessages;
     except
       //
     end;
 end; {/WITH}
end;

ВОПРОС:
Как замутить поток или ещё что нить такое, которое пошлёт слиенту\серверу файл.doc например...
Или может есть уже компонент облегчающий, где прописал адрес файла и нажал процедуру send...

---

tesseract   (2005-12-26 10:42:00) [1]

to DIGITMAN ещё рекомендуется послать размер файла и хотя бы простенько посчитать CRC.

---

Digitman   (2005-12-23 15:13:00) [2]

файл определяется именем(даные строкового содержимого) и содержимым(данными произвольного содержимого)

с пом. того же приснопамятного TCustomWinSocket имя посылается вызовом, например, метода SendText, а  содержимое - вызовом метода SsendStream, где параметром выступает об'ект TFileStream

---

KvORubin   (2005-12-23 15:07:00) [3]

Как установить??? :)

Серьёзно.... уже долго ищу и никто нехочет подсказать где взять прогу с исходниками удовлетваряющими вопрос... или кинуть код...

---

Digitman   (2005-12-23 15:02:00) [4]

> может есть уже компонент облегчающий


есть.

TСобственнаяГолова

---

Наверх