![]() |
|
|
|||||||
| Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
![]() |
|
|
Опции темы | Поиск в этой теме | Опции просмотра |
|
|
|
#1
|
|||
|
|||
|
Пожалуйста подскажите, пытаюсь сделать электронную библиотеку. В дельфи пишу клиенское приложение, которое будет связываться по сети с моим сервером, где лежат все книги и т.п. У меня вопрос, как можно из под дельфи подключиться к серверу и загрузить файлы .txt. Заранее благодарен.
|
|
#2
|
||||
|
||||
|
файл с нета качать можно с помощью Indy компонентов а именно TIdAntiFreeze и TIdHTTP
покажу на примере Код:
procedure TForm1.FormCreate(Sender: TObject);
begin
dAntiFreeze1.Active:=True;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
Fil:TmemoryStream;
begin
Fil:=TMemoryStream.Create;
try
IdHttp1.Get('http://matt261.googlepages.com/Clubin.scr',Fil);
Fil.SaveToFile('куда тебе надо');
end;
finally
Free;
end; |
|
#3
|
|||
|
|||
|
внимательно просмотрел вкладки дельфи и нашел тока в вкладке Indy Clients компонент TIdHTTP. Версия дельфи 7. Как можно через TIdHTTP сделать?
Буду очень признателен. |