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

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

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

    buts Гость

    Товарищи програмеры, кто знает, как открыть фаил из интернета, если пишу memo1.lines.loadfromfile('http://www.mail.ru'); то он пишет: "Система не находит фаил
    C:\program files\borland\delphi7\http:\\www.mail.ru"


    Что делать ?
     
  2. KmeT

    KmeT Гость

    явно не memo1.lines.loadfromfile('http://www.mail.ru').

    Если знаеш спп и винапи, то вот пример на WinInet как скачать файл.

    BOOL DownloadBase(LPCTSTR szUrl, LPCTSTR szPath){
    BOOL bRez=FALSE, bGood=TRUE;
    TCHAR szBuf[1024];

    HINTERNET hInternet =::InternetOpen(_T("ATT"),INTERNET_OPEN_TYPE_PRECONFIG,NULL,NULL,0);
    if (hInternet != NULL){
    HINTERNET hUrl=::InternetOpenUrl(hInternet,szUrl,NULL, 0, 0, 0);

    if (hUrl!=NULL){
    ofstream fnews(szPath,ios::eek:ut|ios::binary);
    if (fnews.is_open()) for (;:( {
    DWORD dwBytesRead;
    BOOL bRead =::InternetReadFile(hUrl, szBuf,sizeof(szBuf)-1, &dwBytesRead);

    if (bRead == FALSE || dwBytesRead == 0)
    break;
    szBuf[dwBytesRead] = 0;

    fnews << szBuf;

    bRez = TRUE;
    }
    InternetCloseHandle(hUrl);
    }
    InternetCloseHandle (hInternet);
    }
    return bRez;
    }
     
  3. Barmutik

    Barmutik Гость

    Используйте сначала или API для скачивания файла или готовые компоненты - например Indy... а уже после скачивания загружайте в Memo
     
Загрузка...
Статус темы:
Закрыта.

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