Einzelnen Beitrag anzeigen

RomeoAnfänger

Registriert seit: 29. Mai 2020
23 Beiträge
 
#8

AW: Login Webservice Delphi

  Alt 9. Jul 2020, 22:26
Ich glaube auch, dass das ExecSQL fehl am Platz war/ist. Ich denke das wäre für SQL Statements zu nutzen die nichts zurückliefern wie Insert, Delete und Update.

Für Statements wie Select die eine Ergebnismenge zurückliefern ist das Open das richtige.

ich habe auch ExecSQL hingefügt und es sieht so aus jetzt.
begin

nxQuery1.SQL.Text:='select * from Mitarbeiter where Benutzername=:p1 and Passwort=:p2';
nxQuery1.Params.ParamByName('p1').Value := edit1.Text;
nxQuery1.Params.ParamByName('p2').Value := edit2.Text;
nxQuery1.Open;
nxQuery1.ExecSQL;
if nxQuery1.Eof then
Showmessage ('Ungültiger Benutzername oder Passwort !')
else
GroupBox1.Visible:= false;
nxQuery1.Close;

end;

end.

Aber wie gesagt , das Problem kommt von meinem 'MyServiceImpl'.Da habe ich keinen Code für das Web service und weiß nicht genau wiw ich es für die Funktion-Login implementieren kann .
Vielleicht kann mir Jemanden da helfen :
//Die Funktion Authentifizierung wird von dieser unten angenommen .
function TMyService.Authentifizierung(const Benutzername , Passwort: String): String; stdcall;

begin

// schauen ,ob der Benutzer schon eingeloggt ist

ShowMessage('');
end;
  Mit Zitat antworten Zitat