Тестирование

[GVS276]

Прошу протестировать GLogo.dll (Библиотека рисует лого в вашем инсталляторе), так же GLogo дружит с ISWin7.dll
http://rghost.ru/37971847

 

[Snoopak96]

AVMan,
Win7 x64, вроде норм, это к стати порадовало: https://www.virustotal.com/file/25f...bd8a6f99c5cfb3fe550b2747/analysis/1336472511/

 

[Winst@n]

Snoopak96,
Реализация я так понял у тебя сделана в скрипте,а не через чтение строки с ini.
AVMan,
Нормально работает.

 

[Snoopak96]

Snoopak96,
Реализация я так понял у тебя сделана в скрипте,а не через чтение строки с ini.

Об этом история умалчивает Скрипт всё равно сделан в личное пользование, а не для паблика.

 

[Edison007]

Про это знаю, скрыть его можно только после создания, т.е. в процедуре CurPageChanged.

А не вариант использовать другую страницу?
например wpSelectDir, a wpReady вообще отключить...

 

[Snoopak96]

например wpSelectDir, a wpReady вообще отключить...

Уже давно сделал, как раз на SelectDir

 

[Edison007]

Прошу протестировать GLogo.dll

на ХР, работает нормально
только вот не въехал
CreateLogo(tWH, sWH: HWND...
зачем два хэндла

Добавлено через 31 секунду

Уже давно сделал, как раз на SelectDir

тогда поидее это мемо не должно появлятся

 

[GVS276]

Edison007, tWH - WM_PAINT (для отрисовки картинки). sWH - Родитель

 

[ReFLeXx]

Snoopak96, Отличный инсталл, только Memo бросается в глаза. Может так попробуй его скрыть:

[Setup]
DisableReadyMemo=true

 

[Snoopak96]

ReFLeXx,
Да уже давно всё поправил перенёс всё на селектдир.

 

[Pirate]

Накатал скрипт для получения ip-адреса и региона. Использую сервис internet.yandex.ru. Протестируйте, пожалуйста:

[Setup]
AppName=My Application
AppVersion=1.5
DefaultDirName={pf}\My Application
WindowVisible=no

[ Code]
function GetHtmlSource(URL: AnsiString): AnsiString;
var
  Http: Variant;
begin
  if Pos('http://', URL) = 0 then URL:= 'http://' + URL;
  try
  Http:= CreateOleObject('Microsoft.XMLHTTP');
  Http.Open('GET', URL, False);
  Http.Send;
  except end;
  Result:= Http.ResponseText;
end;

function DeleteSpace(Str: AnsiString): AnsiString;
begin
 while (Pos('  ', Str) > 0) do Delete(Str, Pos('  ', Str), 1)
 Result:= Trim(Str)
end;

function GetMyIp: AnsiString;
var
  HtmlSource, ip: AnsiString;
begin
  HtmlSource:= GetHtmlSource('internet.yandex.ru');
  Delete(HtmlSource, 1, Pos('<div class="b-info__item b-info__item_type_ip">', HtmlSource) + Length('<div class="b-info__item b-info__item_type_ip">') - 1);
  Delete(HtmlSource, 1, Pos(':', HtmlSource));
  ip:= Copy(HtmlSource, 1, Pos('</div>', HtmlSource) - 1);
  Result:= Trim(ip);
end;

function GetMyRegion: AnsiString;
var
  HtmlSource, Region: AnsiString;
begin
  HtmlSource:= GetHtmlSource('internet.yandex.ru');
  Delete(HtmlSource, 1, Pos('<div class="b-info__item">', HtmlSource) + Length('<div class="b-info__item">') - 1);
  Delete(HtmlSource, 1, Pos('<span class="b-info__screen-resolution"></span>', HtmlSource) + Length('<span class="b-info__screen-resolution"></span>') - 1);
  Delete(HtmlSource, 1, Pos('<div class="b-info__item">', HtmlSource) + Length('<div class="b-info__item">') - 1);
  Delete(HtmlSource, 1, Pos(':', HtmlSource));
  Region:= Copy(HtmlSource, 1, Pos('</div>', HtmlSource) - 1);
  Result:= DeleteSpace(Region);
end;

procedure InitializeWizard();
begin
  WizardForm.WelcomeLabel2.Caption:= 'Мой IP: ' + GetMyIp + ' | Регион: ' + GetMyRegion;
end;

 

[PUNISHER]

Wile E. Coyote, не работает

 

[LexBell]

PUNISHER, человек просто забыл написать, что только для расширенной версии, скорей всего. Ну и DeleteSpace кавычек нету - скорей всего функция скопипастена откуда-то.

 

[aLLeXUs]

Wile E. Coyote, работает

P.S. Когда интернет отключен то выбивает такую ошибку

Спойлер: скрин

может как-то сделать что-бы если есть интернет, то проверяется, если нету, то отображается совершенствующееся сообщение.

 

[PUNISHER]

Wile E. Coyote, работает.
Gnom, просто пробел в [ code] убрать забыл

 

[GVS276]

Wile E. Coyote, Работает на ура!
Gnom, IP: http://forum.oszone.net/post-1648368-1198.html от Serega

 

[YURSHAT]

Wile E. Coyote, работает. Пруф, так сказать
[thumb]http://i34.fastpic.ru/big/2012/0517/91/a339e7660221c1955e7f4c03c184cf91.jpg[/thumb]

 

[Pirate]

Всем спасибо за тесты.

 

[LexBell]

Да, сейчас проверил - на стандартной тоже должна работать.

вопросительные знаки

а так?

Спойлер: код

[SOURCE="iss"][Setup]
AppName=My Application
AppVersion=1.5
DefaultDirName={pf}\My Application
WindowVisible=no

function GetHtmlSource(URL: String): String;
var
  Http: Variant;
begin
  if Pos('http://', URL) = 0 then URL := 'http://' + URL;
  try
    Http := CreateOleObject('Microsoft.XMLHTTP');
    Http.Open('GET', URL, False);
    Http.Send;
  except
  end;
  Result := Http.ResponseText;
end;

function DeleteSpace(Str: String): String;
begin
  while (Pos('  ', Str) > 0) do
    Delete(Str, Pos('  ', Str), 1);
  Result := Trim(Str);
end;

function GetMyIp: String;
var
  HtmlSource, ip: String;
begin
  HtmlSource := GetHtmlSource('internet.yandex.ru');
  Delete(HtmlSource, 1, Pos('<div class="b-info__item b-info__item_type_ip">', HtmlSource) + Length('<div class="b-info__item b-info__item_type_ip">') - 1);
  Delete(HtmlSource, 1, Pos(':', HtmlSource));
  ip := Copy(HtmlSource, 1, Pos('</div>', HtmlSource) - 1);
  Result := Trim(ip);
end;

function GetMyRegion: String;
var
  HtmlSource, Region: String;
begin
  HtmlSource := GetHtmlSource('internet.yandex.ru');
  Delete(HtmlSource, 1, Pos('<div class="b-info__item">', HtmlSource) + Length('<div class="b-info__item">') - 1);
  Delete(HtmlSource, 1, Pos('<span class="b-info__screen-resolution"></span>', HtmlSource) + Length('<span class="b-info__screen-resolution"></span>') - 1);
  Delete(HtmlSource, 1, Pos('<div class="b-info__item">', HtmlSource) + Length('<div class="b-info__item">') - 1);
  Delete(HtmlSource, 1, Pos(':', HtmlSource));
  Region := Copy(HtmlSource, 1, Pos('</div>', HtmlSource) - 1);
  Result := DeleteSpace(Region);
end;

procedure InitializeWizard();
begin
  WizardForm.WelcomeLabel2.Caption := 'Мой IP: ' + GetMyIp + ' | Регион: ' + GetMyRegion;
end;[/SOURCE][/SPOILER]

[b]AVMan[/b], ну да, не догадался поглядеть, действительно - он и есть :)

 

[Pirate]

Добавил проверку соединения с интернетом, и получение ip теперь будет происходит с 2ip.ru, проверьте, робит ли:

[Setup]
AppName=My Application
AppVersion=1.5
DefaultDirName={pf}\My Application
WindowVisible=no

[ Code]
function InetIsOffline(Flag: Integer): Boolean; external 'InetIsOffline@URL.DLL stdcall';

function GetHtmlSource(URL: AnsiString): AnsiString;
var
  Http: Variant;
begin
  if InetIsOffline(0) then exit;
  if Pos('http://', URL) = 0 then URL:= 'http://' + URL;
  try
  Http:= CreateOleObject('Microsoft.XMLHTTP');
  Http.Open('GET', URL, False);
  Http.Send;
  except end;
  Result:= Http.ResponseText;
end;

function DeleteSpace(Str: AnsiString): AnsiString;
begin
 while (Pos('  ', Str) > 0) do Delete(Str, Pos('  ', Str), 1);
 Result:= Trim(Str);
end;

function GetMyIp: AnsiString;
var
  HtmlSource, ip: AnsiString;
begin
  HtmlSource:= GetHtmlSource('2ip.ru');
  Delete(HtmlSource, 1, Pos('class="ip"', HtmlSource) + Length('class="ip"') - 1);
  Delete(HtmlSource, 1, Pos('<big>', HtmlSource) + Length('<big>') - 1);
  ip:= Copy(HtmlSource, 1, Pos('</big>', HtmlSource) - 1);
  Result:= Trim(ip);
end;

function GetMyRegion: AnsiString;
var
  HtmlSource, Region: AnsiString;
begin
  HtmlSource:= GetHtmlSource('internet.yandex.ru');
  Delete(HtmlSource, 1, Pos('<div class="b-info__item">', HtmlSource) + Length('<div class="b-info__item">') - 1);
  Delete(HtmlSource, 1, Pos('<span class="b-info__screen-resolution"></span>', HtmlSource) + Length('<span class="b-info__screen-resolution"></span>') - 1);
  Delete(HtmlSource, 1, Pos('<div class="b-info__item">', HtmlSource) + Length('<div class="b-info__item">') - 1);
  Delete(HtmlSource, 1, Pos(':', HtmlSource));
  Region:= Copy(HtmlSource, 1, Pos('</div>', HtmlSource) - 1);
  Result:= DeleteSpace(Region);
end;

procedure InitializeWizard();
begin
  WizardForm.WelcomeLabel2.Caption:= 'IP: ' + GetMyIp + ' | Region: ' + GetMyRegion;
end;