Главная страница
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.025 c
9-1123081182
Зм1й
2005-08-03 18:59
2006.01.15
Текстура


6-1128326260
nikolas
2005-10-03 11:57
2006.01.15
IdSMTPServer


6-1127751490
ILN
2005-09-26 20:18
2006.01.15
Webbrowser в связке с сокетами, контролируем броузера


14-1134657548
(CHALING 32)S K i N E R
2005-12-15 17:39
2006.01.15
Мои программы которые я написал на Delphi


14-1134747289
Карелин Артем
2005-12-16 18:34
2006.01.15
Мда. MS SQL 2005 грит что комп слабый слишком...