Wo wird der Code denn ausgeführt, auf dem Server oder in der App? Wie dem auch sei, ich verstehe das Doppelmoppel eh nicht und würde das eher so machen:
Delphi-Quellcode:
nxQuery1.SQL.Text:='select * from Mitarbeiter where Benutzername=: p1 and Passwort=: p2';
nxQuery1.Params.ParamByName('p1').AsString := edit1.Text;
nxQuery1.Params.ParamByName('p2').AsString := edit2.Text;
nxQuery1.Open;
// Eof -> Kein entsprechender Datensatz gefunden, Anmeldung ungültig
if nxQuery1.Eof then
Showmessage ('Ungültiger Benutzername oder Passwort !')
else
GroupBox1.Visible:= false;
nxQuery1.Close;
Dein Code ist richtig ,aber mein Login webservice wird nicht ausgefürt . Ich vermute,das Problem kommt wahrscheinlich von ''MyServiceImpl'' :
function TMyService.Zeitstempel(const Value: TDateTime): Boolean; stdcall;
begin
{ TODO : Methode Zeitstempel implementieren }
Result := true;
ShowMessage('Zeit:'+ FormatDateTime('dd.mm.yyyy',Value));
end;
//Die Funktion Login wird von dieser unten angenommen .
function TMyService.Login(const Benutzername , Passwort: String): String; stdcall;
begin
Result := true;
ShowMessage('Zeit:');
end;
______________________
Die Funktion Zeitstempel ist läuft immer ,wenn ich den Knopf 'Start' drücken und meine Funktion Login nicht .Ich habe leider keine Ahnung ,wie ich den Code in dieser Funktion schreiben kann .