Anasayfa / 2016 / Ocak

Monthly Archives: Ocak 2016

Delphi Intraweb SetCookie

Delphi intraweb ile SetCookie,GetCookie uses a iwinit,windows,IW.HTTP.Cookie function GetCookieValue(sName: String): String; function GetUTCDateTime: TDateTime; var GMTST: Windows.TSystemTime; begin windows.GetSystemTime(GMTST); result:=Sysutils.SystemTimeToDateTime(GMTST); end; function GetCookieValue(sName: String): String; begin Result := webapplication.Request.CookieFields.Values[sName]; end; procedure TFrm_Login.SetCookie; var ExpireOn : real; begin if ExpireIn <> 0 then ExpireOn := GetUTCDateTime + ExpireIn else ExpireOn:=-1; // …

Devamını Oku »