Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Сети";
Текущий архив: 2003.03.06;
Скачать: [xml.tar.bz2];

Вниз

Access Violation: проблемы с HttpQueryInfo   Найти похожие ветки 

 
smok_er   (2003-01-17 13:11) [0]

Мастера, вот код:

function HeadInetFile(const fileURL: String): String;
var
hSession, hURL: HInternet;
dwBuffer: Pointer;
dwBufferLen, dwIndex: DWord;
begin
Result := "";

try
hSession := InternetOpen("Updater", INTERNET_OPEN_TYPE_DIRECT, nil, nil, 0);

hURL := InternetOpenURL(hSession, PChar(fileURL), nil, 0, 0, 0);

dwBuffer := nil;
dwIndex := 0;
dwBufferLen := 100;

if HttpQueryInfo(hURL, HTTP_QUERY_ETAG, @dwBuffer, dwBufferLen, dwIndex) then
Result := PChar(dwBuffer);
finally
if Assigned(hURL) then InternetCloseHandle(hURL);
InternetCloseHandle(hSession);
end;
end;


проблема в том, что постоянно вылетает сабж, причем на самой послдней строчке.
Может кто знает, что делать?
Очень нужно!


 
smok_er   (2003-01-17 13:23) [1]

Нашел ответ сам. Если кому интересно:


function HeadInetFile(const fileURL: String): String;
var
hSession, hURL: HInternet;
dwBuffer: array[1..20] of char;
dwBufferLen, dwIndex: DWord;
begin
Result := "";

try
hSession := InternetOpen("Updater", INTERNET_OPEN_TYPE_DIRECT, nil, nil, 0);

hURL := InternetOpenURL(hSession, PChar(fileURL), nil, 0, 0, 0);

dwIndex := 0;
dwBufferLen := 20;

if HttpQueryInfo(hURL, HTTP_QUERY_ETAG, @dwBuffer, dwBufferLen, dwIndex) then
Result := PChar(@dwBuffer);
finally
if Assigned(hURL) then InternetCloseHandle(hURL);
InternetCloseHandle(hSession);
end;
end;


 
Anton   (2003-01-17 13:39) [2]

Что такое сабж



Страницы: 1 вся ветка

Форум: "Сети";
Текущий архив: 2003.03.06;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.55 MB
Время: 0.037 c
4-17432
Керик
2003-01-16 19:55
2003.03.06
Подключение к интернету


14-17354
ARTSOFT
2003-02-15 23:06
2003.03.06
Каким образом запретить дальнейший запуск программы?


14-17395
IlyaGer
2003-02-18 20:02
2003.03.06
Подскажите пожалуйста, есть ли готовая компонента типа TEdit ...


1-17082
IVANOV
2003-02-22 08:16
2003.03.06
Использование курсоров *.cur


3-16958
Rustiik
2003-02-17 11:53
2003.03.06
Мастера подскажите как округлить число до второго знака





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский