Pipocooling
Участник
Прошу помочь привести в рабочее состояние функцию, смысл в том что пароль от архива находится на сайте в текстовом файле, функция по идее читает с сайта пароль и ставит в секцию распаковки архива.
Код:
function GETTEXT:boolean;
var WinHttpReq:Variant;
var responseText:String;
begin
try
WinHttpReq := CreateOleObject('WinHttp.WinHttpRequest.5.1');
WinHttpReq.Open('GET', 'http://www.mysite.ru/text.txt', false);
WinHttpReq.Send();
responseText := WinHttpReq.ResponseText;
except
responseText := '';
end;
//
//
//
//
if not ISArcExtract ( 0, 0, ExpandConstant('{src}\data2.bin'), ExpandConstant('{app}'), '', false, '' + GETTEXT('') + '', '', ExpandConstant('{app}'), notPCFonFLY {PCFonFLY}) then break;