opensource/HeidiSQL
1
0
Fork 0
mirror of https://github.com/HeidiSQL/HeidiSQL.git synced 2025-08-26 11:17:57 +08:00
Code Issues Packages Projects Releases Wiki Activity

Bugfix: we're not Internet Explorer, so stop pretending to be.

Browse Source
This commit is contained in:
rosenfield.albert
2008-09-09 11:21:58 +00:00
parent 2221317a2c
commit 5959297f2d
1 changed files with 26 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

28
source/updatecheck.pas
View File

@ -7,6 +7,12 @@ uses
Dialogs, StdCtrls, ExtActns, IniFiles, Controls, Graphics, Registry;
type
TUrlMonUrlMkSetSessionOption = function(dwOption: Cardinal; pBuffer: PChar; dwBufferLength: Cardinal; dwReserved: Cardinal): HRESULT; stdcall;
TDownloadUrl2 = class(TDownloadUrl)
public
procedure SetUserAgent(name: string);
end;
TfrmUpdateCheck = class(TForm)
btnCancel: TButton;
groupBuild: TGroupBox;
@ -22,7 +28,7 @@ type
procedure FormShow(Sender: TObject);
private
{ Private declarations }
CheckfileDownload : TDownLoadURL;
CheckfileDownload : TDownLoadURL2;
ReleaseURL, BuildURL : String;
procedure Status(txt: String);
procedure ReadCheckFile;
@ -44,6 +50,23 @@ uses helpers, main;
{$I const.inc}
procedure TDownloadUrl2.SetUserAgent(name: string);
const
UrlMonLib = 'URLMON.DLL';
sUrlMkSetSessionOptionA = 'UrlMkSetSessionOption';
URLMON_OPTION_USERAGENT = $10000001;
var
UrlMonHandle: HMODULE;
UrlMkSetSessionOption: TUrlMonUrlMkSetSessionOption;
begin
UrlMonHandle := LoadLibrary(UrlMonLib);
if UrlMonHandle = 0 then raise Exception.Create('Could not get handle to urlmon.dll.');
UrlMkSetSessionOption := GetProcAddress(UrlMonHandle, PChar(sUrlMkSetSessionOptionA));
if not Assigned(UrlMkSetSessionOption) then raise Exception.Create('Could not get handle to UrlMonUrlMkSetSessionOption().');
// TODO: Rumoured to be broken in IE8, test when it hits the stores.
if UrlMkSetSessionOption(URLMON_OPTION_USERAGENT, PChar(name), Length(name), 0) <> 0 then raise Exception.Create('Could not set User-Agent via UrlMonUrlMkSetSessionOption().');
end;
{**
Set defaults
}
@ -82,7 +105,8 @@ begin
memoBuild.Clear;
// Prepare download
CheckfileDownload := TDownLoadURL.Create(Self);
CheckfileDownload := TDownLoadURL2.Create(Self);
CheckfileDownload.SetUserAgent(APPNAME + ' ' + APPVERSION + ' ' + APPREVISION + ' update checker tool');
CheckfileDownload.URL := APPDOMAIN + 'updatecheck.php';
CheckfileDownload.Filename := GetTempDir + APPNAME + '_updatecheck.ini';