Проверка новой версии программы.

← →
kyn66 © (2005-10-31 09:05) [0]

Уважаемые мастера. Каким образом можно в программе сделать проверку на наличие новой версии своей программы, находящейся на сайте?

← →
Crazy_Diman © (2005-10-31 12:21) [1]

http://www.delphikingdom.ru зайди на сайт и поиши я там гдето это видел

← →
Erik1 © (2005-10-31 15:26) [2]

А вот мой вариант, довольно корткий:
function GetCurrentVersion(const FileName: string): Int64;
var
Info: Pointer;
Temp,
InfoSize,
FileInfoSize: DWORD;
FileInfo: PVSFixedFileInfo;
CurFile: string;
begin
Result := 0;
CurFile := LowerCase(FileName);
InfoSize := GetFileVersionInfoSize(PChar(CurFile), Temp);
if InfoSize > 0 then
begin
GetMem(Info, InfoSize);
FileInfoSize := SizeOf(FileInfo^);
try
GetFileVersionInfo(PChar(CurFile), 0, InfoSize, Info);
VerQueryValue(Info, "\", Pointer(FileInfo), FileInfoSize);
with FileInfo^ do
begin
Result := dwFileVersionMS;
Result := Result shl 32;
Result := Result + dwFileVersionLS;
end;
finally
FreeMem(Info, InfoSize);
end;
end;
end;
Int64 очень легко преобразовать в string:
function VerToStr(const Value: Int64): string;
begin
Result := IntToStr(Value shr 48) + "." + IntToStr((Value shr 32) and $FFFF) +
"." + IntToStr((Value shr 16) and $FFFF) + "." + IntToStr(Value and $FFFF);
end;

← →
oldman © (2005-10-31 17:33) [3]

Не первый раз я вижу подобный вопрос:
"я написал что-то. как мне узнать то-то, что тоже я написал?"
Господи, ты же автор, вот и поставь проверку.
выложи на сайт файл маленький: "вышла версия N.ММ"
А в программе проверка: если "ММ" отличается от "КК" то...

← →
kyn66 © (2005-10-31 17:36) [4]

Да..., если не знаешь как задать влпрос поиска, найди попробуй. Мне-бы понять сам механизм.

← →
kyn66 © (2005-11-01 12:36) [5]

Да, спасибо, так и сделаю.

http://polesoft.narod.ru/Products/Starter/starter.html
Готовая проверялка. Работает (у меня) много лет на ура. Если есть желание - все фри.

Есть одна загвоздка с [2] В данном случае конечно-же корректно проверяется версия Ехе-шника, но как быть, если на сайте лежит прога в архиве? Один выход подлаживать некий левый файлец и проверять по нему.

Проверка новой версии программы. Найти похожие ветки