Форум: "Начинающим";
Текущий архив: 2006.01.15;
Скачать: [xml.tar.bz2];

Вниз

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

← →
KvORubin ©   (2005-12-23 14:58) [0]

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

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...

---

← →
Digitman ©   (2005-12-23 15:02) [1]

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


есть.

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

---

← →
KvORubin ©   (2005-12-23 15:07) [2]

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

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

---

← →
Digitman ©   (2005-12-23 15:13) [3]

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

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

---

← →
tesseract ©   (2005-12-26 10:42) [4]

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

---

Страницы: 1 вся ветка

Форум: "Начинающим";
Текущий архив: 2006.01.15;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.017 c