Форум: "Сети";
Текущий архив: 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