| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Access Violation: проблемы с HttpQueryInfo [D6, Win2k]

smok_er ©   (2003-01-17 13:11:00) 

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

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;


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

---

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

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

---

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

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


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;


---

Наверх