Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2006.01.15;
Скачать: CL | DM;

Вниз

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

 
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;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.04 c
14-1134716196
Ник (пишу с работы)
2005-12-16 09:56
2006.01.15
ТВ тюнер на winxp


6-1127822981
arhis
2005-09-27 16:09
2006.01.15
Исходящий траффик TServerSocket


6-1128446131
VadimX
2005-10-04 21:15
2006.01.15
Как работать с SOCKS из Indy 9,10?


2-1135666949
TStas
2005-12-27 10:02
2006.01.15
В каком свойстве ShellTreeView хранит выбранную папку?


3-1132633101
BAckToOfiice
2005-11-22 07:18
2006.01.15
Помогите. Как слконировать таблицу?