1. Набираем команду codeby webinar. Набираем команду для организации и проведения вебинаров. Подробнее ...

    Скрыть объявление
  2. Требуются разработчики и тестеры для проекта codebyOS. Требования для участия в проекте: Знание принципов работы ОС на базе Linux; Знание Bash; Крайне желательное знание CPP, Python, Lua; Навыки системного администрирования. Подробнее ...

    Скрыть объявление
  3. Получи 30.000 рублей. Для получения денег необходимо принять участие в конкурсе авторов codeby. С условиями и призами можно ознакомиться на этой странице ...

    Внимание! Регистрация авторов на конкурс закрыта.

    Скрыть объявление

Как открыть в Delphi фаил из интернета

Тема в разделе "Delphi - программирование", создана пользователем buts, 20 авг 2004.

Статус темы:
Закрыта.
  1. buts

    buts Гость

    Репутация:
    0
    Товарищи програмисты, как открыть фаил из интернета:?:
    Если я пишу memo1.lines.loadfromfile('http:\\www.mail.ru)
    то он пишет что немогу найти фаил "C:\....\projects\http:\\www.mail.ru"

    Как открыть фаил из интернета?
    Mail.ru я взял для примера
     
  2. zubr

    zubr Гость

    Репутация:
    0
    buts

    Для того, чтобы у тебя получилось memo1.lines.loadfromfile('http:\\www.mail.ru), надо чтобы твой компьютер был в сетевом окружении сервера с которого ты хочешь открыть файл. Если тебе надо только просмотр файла можешь взять компонент TWebBrowser:
    Код:
    procedure TForm1.Button1Click(Sender: TObject);
    begin
    WebBrowser1.Navigate('http:\\www.mail.ru');
    end;
    Другой вариант - использовать компонент FTP, скачивать файл на локальный компьютер.
     
  3. Barmutik

    Barmutik Гость

    Репутация:
    0
    Да и "http://www.mail.ru".. это не файл а УРЛ ...

    Код:
    var
     FileStrm: TFileStream;
    begin
     DeleteFile('X:\XXX.txt');
     FileStrm := TFileStream.Create('X:\XXX.txt', fmCreate);
     try
       IdHTTP1.Get('http://www.somesite.com/XXX.txt', FileStrm);
     finally;
      FileStrm.Free;
     end;
     memo1.lines.loadfromfile('X:\XXX.txt') 
    end;
    Ну в первом приближении можно использовать чего-нибудь типа такое ...
     
Загрузка...
Статус темы:
Закрыта.

Поделиться этой страницей