Форум: "Сети";
Текущий архив: 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.44 MB
Время: 0.012 c