Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Работа с сетью в Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 26.10.2010, 09:33   #1
BARNEY
Участник клуба
 
Регистрация: 23.04.2009
Сообщений: 1,058
По умолчанию progressBar и TcpServer

Клиент
Код:
procedure TForm1.Button3Click(Sender: TObject);
var
  stream: TMemoryStream;
begin
    IdTCPClient1.Connect;
    stream := TMemoryStream.Create;
    stream.LoadFromFile('C:\1.exe');
    idTcpClient1.IOHandler.Write(stream ,stream.Size, true);
    stream.Free;
    IdTCPClient1.Disconnect;
end;
Сервер

Код:
procedure TForm1.IdTCPServer1Execute(AContext: TIdContext);
var
 s:TStringStream;
begin
      s:=TStringStream.Create; 
      AContext.Connection.IOHandler.ReadStream(s);
      s.SaveToFile('1.exe');
      s.Free;
end;
вопрос как в обоих случаях прикрутить progressBar, мелкие файлы передает мгновенно, но если что то побольше.. надо чтобы юзер как то видел и что передача идет и надо покурить. Можно вывести табличку подождите, но progressBar как то симпатичнее и понятнее.
Если вам человек помог, не стесняйтесь говорить спасибо (весы под аватаром)
BARNEY вне форума Ответить с цитированием
Старый 27.10.2010, 10:59   #2
BARNEY
Участник клуба
 
Регистрация: 23.04.2009
Сообщений: 1,058
По умолчанию

нашел тут извините за темку
Если вам человек помог, не стесняйтесь говорить спасибо (весы под аватаром)
BARNEY вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
TCPServer, TCPClient seobot Общие вопросы Delphi 2 03.05.2010 23:56
TcpServer и проблема с ним whitedragon Работа с сетью в Delphi 0 17.10.2009 01:47
Com Объекты и TcpServer part13an Работа с сетью в Delphi 0 23.07.2008 16:14
TcpClient и TcpServer DOLBY Работа с сетью в Delphi 5 17.12.2007 10:43
TCPServer и TCPClient Antoha Работа с сетью в Delphi 19 06.10.2007 12:01