Jeg er i gang med at udvikle et program, der udover lokale data også skal have adgang til en fælles database på en ekstern server.
Adgangen til serveren sker via programmets indbyggede web-browser med brugernavn og adgangskode, og dette fungerer fint.
Imidlertid ville det være rart at kunne springe login-sekvensen over, ved ganske enkelt at lade programmet selv identificere sig over for serveren gennem en cookie.
Men her gik jeg så i stå.
Jeg benytter TWebModule, som vist er det bedste Delphi 6 har at byde på, og jeg har afprøvet alle de koder jeg har kunnet finde på nettet. Men uden resultat.
Jeg kan bare ikke få programmet til at skrive den cookie.Det er muligt, jeg har set mig blind på problemet. Og derfor håber jeg på hjælp herinde fra.
Jeg har bla. følgende kode:
procedure TWebModuleMaster.WebModuleMasterCreateCookieAction(
Sender: TObject; Request: TWebRequest; Response: TWebResponse;
var Handled: Boolean);
var CookieText: TStringList;
begin
CookieText := TStringList.Create;
try
with CookieText do begin
Clear;
Append('Arkiv=ACookie');
Append('Id=1');
Append('Name=MrLES');
end;
Response.SetCookieField
(CookieText, '
http://, '/arkiv',-1,False);
Response.Content := 'OK';
finally
CookieText.Free;
end;
end;
Dette er blot een af mange koder jeg har afprøvet. Den melder ikke fejl, den undlader blot at sætte en cookie.
Der er 200 point på højkant.
MrLES.