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;