Хорошо, мне создали Idhttp динамично как следующее
procedure TForm1.Button1Click(Sender: TObject);
Var
Resp : String;
begin
Resp := webSession('https://www.website.com'); // HTTPS site requires session to keep alive
if Length(Resp)>0 then
MessageDlg('Got the body ok',mtInformation,[mbOk],0);
end;
function TForm1.webSession(sURL : ansistring) : ansistring;
var
SStream : Tstringstream;
HTTPCon : TIdHTTP;
AntiFreeze : TIdAntiFreeze;
CompressorZLib: TIdCompressorZLib;
ConnectionIntercept: TIdConnectionIntercept;
SSLIOHandlerSocketOpenSSL: TIdSSLIOHandlerSocketOpenSSL;
CookieManager: TIdCookieManager;
begin
CompressorZLib := TIdCompressorZLib.Create;
ConnectionIntercept :=TIdConnectionIntercept.Create;
SSLIOHandlerSocketOpenSSL := TIdSSLIOHandlerSocketOpenSSL.Create;
Result := '';
if Length(SettingsForm.edtProxyServer.text) >= 7 then // 0.0.0.0
Try
SStream := NIL;
AntiFreeze := NIL;
HTTPCon := NIL;
Try
SStream := tstringstream.Create('');
{ Create & Set IdHTTP properties }
HTTPCon := TIdHTTP.create;
HTTPCon.AllowCookies:=true;
HTTPCon.CookieManager :=CookieManager;
HTTPCon.Compressor := CompressorZLib;
HTTPCon.Intercept := ConnectionIntercept;
HTTPCon.IOHandler := SSLIOHandlerSocketOpenSSL;
HTTPCon.HandleRedirects := true;
{ Check Proxy }
if checkproxy('http://www.google.com') then
Begin
HTTPCon.ProxyParams.ProxyServer := SettingsForm.edtProxyServer.text;
HTTPCon.ProxyParams.ProxyPort := StrToInt(SettingsForm.edtProxyPort.Text);
HTTPCon.ProxyParams.BasicAuthentication := True;
HTTPCon.ProxyParams.ProxyUsername := SettingsForm.edtProxyServer.Text;
HTTPCon.ProxyParams.ProxyPassword := SettingsForm.edtProxyUserName.Text;
End;
{ Create another AntiFreeze - only 1/app }
AntiFreeze := TIdAntiFreeze.Create(nil);
AntiFreeze.Active := true;
HTTPCon.Get(sURL,SStream);
Result := UTF8ToWideString(SStream.DataString);
Finally
If Assigned(HTTPCon) then FreeAndNil(HTTPCon);
If Assigned(AntiFreeze) then FreeAndNil(AntiFreeze);
If Assigned(SStream) then FreeAndNil(SStream);
If Assigned(CookieManager) then FreeAndNil (CookieManager );
If Assigned(CompressorZLib) then FreeAndNil (CompressorZLib );
If Assigned(ConnectionIntercept) then FreeAndNil (ConnectionIntercept );
If Assigned(SSLIOHandlerSocketOpenSSL) then FreeAndNil (SSLIOHandlerSocketOpenSSL);
End;
Except
{ Handle exceptions }
On E:Exception do
MessageDlg('Exception: '+E.Message,mtError, [mbOK], 0);
End;
end;
function TForm1.checkproxy(sURL : ansistring) : boolean;
var
HTTPCon : TIdHTTP;
AntiFreeze : TIdAntiFreeze;
begin
Result := False;
Try
{ Inti vars }
AntiFreeze := NIL;
HTTPCon := NIL;
Try
{ AntiFreeze }
AntiFreeze := TIdAntiFreeze.Create(NIL);
AntiFreeze.Active := true;
{ Create & Set IdHTTP properties }
HTTPCon := TIdHTTP.Create(NIL);
HTTPCon.ProxyParams.ProxyServer := SettingsForm.edtProxyServer.text;
HTTPCon.ProxyParams.ProxyPort := StrToInt(SettingsForm.edtProxyPort.Text);
HTTPCon.ProxyParams.BasicAuthentication := True;
HTTPCon.ProxyParams.ProxyUsername := SettingsForm.edtProxyServer.Text;
HTTPCon.ProxyParams.ProxyPassword := SettingsForm.edtProxyUserName.Text;
HTTPCon.HandleRedirects := true;
HTTPCon.ConnectTimeout := 1000;
HTTPCon.Request.Connection := 'close';
HTTPCon.Head(sURL);
Finally
{ Cleanup }
if Assigned(HTTPCon) then
Begin
{ Return Success/Failure }
Result := HTTPCon.ResponseCode = 200;
If HTTPCon.Connected then HTTPCon.Disconnect;
FreeAndNil(HTTPCon);
End;
if Assigned(AntiFreeze) then FreeAndNil(AntiFreeze);
End;
Except
On E:EIdException do ;
{ Handle exceptions }
On E:Exception do
MessageDlg('Exception: '+E.Message,mtError, [mbOK], 0);
End;
end;
У меня есть веб-сайт, который требует, чтобы я поддержал сессию. Как я сделал бы это? С подобным кодом к вышеупомянутому.
Если я создаю визуальный компонент для всего и использую его, все является большим, но когда я динамично создаю компонент (который я ДЕЙСТВИТЕЛЬНО хочу оставить его этим путем), ему не удается поддержать сессию.
Любая справка ценится.
Я не вижу, где вы создаете экземпляр CookieManager
, но именно там вы должны отслеживать сеанс. Сервер отправит некоторый файл cookie, представляющий текущий сеанс, и все дальнейшие запросы, которые вы отправляете на сервер, должны включать этот файл cookie, чтобы сервер знал, какой сеанс использовать.
Вам придется либо хранить объект cookie-manager на протяжении всего сеанса, либо вам придется сохранять его данные в другом месте, а затем повторно загружать их каждый раз, когда вы создаете новый объект cookie-manager. . Я бы предпочел первое. Фактически, вы можете рассмотреть возможность сохранения всего объекта HTTP.
Как сказал Роб, ваш TIdCookieManager является ключевым для поддержания сеанса на основе файлов cookie. TIdCookieManager может быть создан в событии create модуля данных или событии OnCreate () mainforms, а затем устанавливаться каждый раз, когда вы создаете компонент IdHTTP.
Как вы упомянули в своем комментарии, вы создаете CookieManager в обработчике события OnCreate, так что когда вызывается TForm1.webSession, CookieManager доступен, но в блоке finally TForm1.webSession вы освобождаете CookieManager, так что как только вы покидаете метод TForm1.webSession, CookieManager оказывается вне памяти. Таким образом, при следующем вызове TForm1.webSession CookieManager будет Nil, и куки для вас сохранены не будут.
Есть еще два замечания, которые не относятся к вашему вопросу, но связаны с вашим исходным кодом:
1- Ваш метод возвращает AnsiString, но вы используете Utf8ToWideString для присвоения значения переменной Result. Utf8ToWideString возвращает WideString, поэтому компилятору приходится преобразовывать WideString в AnsiString, а это не только снижает производительность, но и теряет символы юникода в возвращаемой строке. Вам следует изменить сигнатуру метода, чтобы он возвращал либо String (D2009 & D2010), либо WideString (более старые версии Delphi).
2- Вам не нужно проверять, назначены ли SStream, AntiFreeze или HTTPCon в блоке finally. Вы можете просто вызвать метод Free или использовать процедуру FreeAndNil.
С уважением