Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Сети > Передача файлов по сети

Автор: SkilFul 12.2.2005, 18:06

У вас тут нет случайно исходника программы, которая через TCPClient/Server или через Socket файлы качала? Чтоб со всеми делами, с полоской процесса, именно с ней, или чтоб с отслеживанием размера посланной, принятои информации???

Очень нужно ...
Заранее благодарен ...

Автор: RA 14.2.2005, 07:01

Где-то через недельку в арсенале появится.

Автор: Bes 15.2.2005, 07:24

Нужен готоввый екзешник или принцип?

Автор: SkilFul 16.2.2005, 11:25

Цитата

Нужен готоввый екзешник или принцип?

Конечно принцип! Чтобы самому понять как енто делается ...

Автор: RA 16.2.2005, 18:45

Вот: это правда сырая реализация но в полне приемлемая.

http://forum.vingrad.ru/index.php?showtopic=21411&view=findpost&p=328425

Автор: SoWa 17.2.2005, 19:01

А может мне кто объяснит: почему все стремятся пересылать файлы через Сокеты? Потому что я, учась на самплах Борланда, всегда использовал NMStrm и NMStrmServ , хотя отличия в передаче файлов не замечал! smile

Автор: RA 17.2.2005, 21:02

SoWa
NMStrm и NMStrmServ
Это тоже сокетные компоненты smile

Автор: SkilFul 17.2.2005, 21:08

RAdmin

Огромное спасибо!!!
Твой пример работает!!! smile

Автор: SkilFul 18.2.2005, 10:51

Поправочка ...
Когда я делал, у меня тоже получалось отправлять, и вести учет от отправленной информации ...
Но у тебя, как и у меня не ведется учет на сервере вобщем тому, кому отправляем ...
Я сначала делал на FTP компонентах ... Но тоже почему то не смог ...

Автор: RA 18.2.2005, 12:10

Ну не всеже сразу. smile

Socket.RemoteAddress - Адрес клиента;

Автор: Bes 25.2.2005, 13:50

2SkilFul: Забыл про эту тему, хотел сказать про NMStrm про которые сова уже тебе написал.

Автор: SkilFul 26.2.2005, 18:03

Поняно ... smile

Если у тебя есть исходник на NMSTRM, то я с радостью посмотрю ...

Автор: Bes 28.2.2005, 09:16

Вырезка из работающей проги. Так принимается:

Код


procedure TForm1.NMStrmServ1MSG(Sender: TComponent; const sFrom: String;
  strm: TStream);
Var
     S:string;
begin
     Try
          F.Free;
     Except
     end;

     Try
          S:=ExtractFilePath(ParamStr(0));
          F:=TFileStream.Create(S+sfrom,fmCreate);
          F.CopyFrom(strm,strm.Size);
     Except
     end;

     Try
          F.Free;
     Except
     end;
end;

Так отправляется:

Код


procedure TForm1.Button2Click(Sender: TObject);
Var
     s:string;
begin
     if OpenDialog1.Execute then
     begin
          try
               F.free;
          Except
          end;

          F:=TFileStream.Create(OpenDialog1.FileName,fmShareDenyNone);

          NMStrm1.Host:=Edit1.Text;
          if InputQuery('','',s) then NMStrm1.FromName:=s;
          NMStrm1.PostIt(F);

          try
               F.free;
          Except
          end;
     end;
end;

Автор: Coderr 16.9.2006, 21:30

Цитата(RA @ 16.2.2005, 18:45)

Вот: это правда сырая реализация но в полне приемлемая.

http://forum.vingrad.ru/index.php?showtopic=21411&view=findpost&p=328425

А можно ещё раз положить файлик этот? Тока не на Винград! А то по этим ссылкам я тока страницы скачиваю... smile

А хотелось бы пример сам!

Автор: Romikgy 17.9.2006, 15:25

Coderr, попробуй отсель
http://rgy.pisem.net/files/CustomWinSocket_0.1.rar