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

Вниз

WinInet + проверка новой версии через Инет   Найти похожие ветки 

 
MARcoDEN   (2003-01-12 12:31) [0]

Здравствуйте, уважаемые мастера! Объясните, пожалуйста, почему нижеследующая функция не возвращает никакого результата? (эта функция проверяет наличие новой версии программы на вебсайте; версия на веб-странице отображается в виде <!--rev-№>)

uses ShellAPI, WinInet;

function CheckUpdate: Boolean;
type
tbuffer = array[0..1023] of char;
pbuffer = ^TBuffer;
var
buffer: pBuffer;
a,b: dword;
ihConnect, iDocument: HINTERNET;
//pBuf: pointer;
URL, HomePage: pChar;
Revision: byte;
begin
result:=false;
URL:=" http://marcoden.hoha.ru/update.htm";
HomePage:=" http://marcoden.hoha.ru/";
ihConnect:=InternetOpen("Modzilla/2.0 (Updater)", LOCAL_INTERNET_ACCESS, "", "", 0);
iDocument:=InternetOpenURL(ihConnect, URL, nil, 0, INTERNET_FLAG_RELOAD or INTERNET_FLAG_DONT_CACHE or INTERNET_FLAG_RAW_DATA, 0);
if iDocument<>NIL then
try
New(buffer);
InternetReadFile(iDocument, Buffer, sizeof(TBuffer), a);
Buffer^[a]:=#0;
a:=pos("<!--rev",AnsiLowercase(string(buffer^)));
if a>0 then
begin
b:=a+6;
while buffer[b] in ["0".."9"," "] do inc(b);
result:=StrToIntDef(Trim(Copy(string(Buffer^),a+7,b-a-7)),0)>Revision;
end;
try
case result of
true : if MessageDlg("Доступна новая версия программы. Хотите зайти на сайт?",
mtInformation, [mbYes, mbNo], 0) = mrYes
then ShellExecute(Application.Handle, "open", Homepage,"","", SW_SHOWNORMAL);
end;
finally
result:=true;
end;
finally
InternetCloseHandle(iDocument);
Dispose(buffer);
InternetCloseHandle(ihConnect);
end;
end;


Заранее благодарен!
С уважением,
MARcoDEN


 
MARcoDEN   (2003-01-13 20:58) [1]

Ну что?! Неужели нет людей, разбирающихся в Инет программировании???


 
Reindeer Moss Eater   (2003-01-14 11:50) [2]

А нет функций, не возвращающих результата. Совсем.
Ты ошибся. :)


 
MARcoDEN   (2003-01-14 16:35) [3]

Нет, я имел ввиду, что из-за какой-то ошибки ф-ция некорректно возвращает значение.


 
Reindeer Moss Eater   (2003-01-14 16:36) [4]

Уверен что фунция виновата? Она так себя ведет на всех серверах со всеми ресурсами?



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

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

Наверх





Память: 0.55 MB
Время: 0.036 c
14-5799
jack128
2003-02-12 23:46
2003.03.03
Win2k


14-5777
eLVik
2003-02-12 12:49
2003.03.03
И снова ADO


8-5673
Карлсон
2002-11-16 14:33
2003.03.03
WDirectX


1-5588
$Hic0
2003-02-19 19:31
2003.03.03
Панель со скрулером


4-5929
cult
2003-01-15 17:20
2003.03.03
enumchildwindows





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский