• 15 апреля стартует «Курс «SQL-injection Master» ©» от команды The Codeby

    За 3 месяца вы пройдете путь от начальных навыков работы с SQL-запросами к базам данных до продвинутых техник. Научитесь находить уязвимости связанные с базами данных, и внедрять произвольный SQL-код в уязвимые приложения.

    На последнюю неделю приходится экзамен, где нужно будет показать свои навыки, взломав ряд уязвимых учебных сайтов, и добыть флаги. Успешно сдавшие экзамен получат сертификат.

    Запись на курс до 25 апреля. Получить промодоступ ...

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

  • Автор темы buts
  • Дата начала
Статус
Закрыто для дальнейших ответов.
B

buts

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


Что делать ?
 
K

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;
}
 
B

Barmutik

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

Обучение наступательной кибербезопасности в игровой форме. Начать игру!