Abhängigkeit zwischen Proceduren

[bundy]

Hy Leute !


ich hab folgendens

Delphi-Quellcode:

unit export;

interface

type
tuser = class(tobject)

public
function login (aUsername,aPassword,aIP,aDatabase:string):boolean;
procedure ResetTelVarGeb;
private

end;


implementation

uses Main, MyAccess;



{ tuser }

function tuser.login(aUsername, aPassword,aIP,aDatabase: string): boolean;
begin
 fmMain.MyConnection1.Username:=aUsername;
 fmMain.MyConnection1.Password:=aPassword;
 fmMain.MyConnection1.Server:=aIP   ;
 fmMain.MyConnection1.Database:=aDatabase;
 fmMain.MyConnection1.Connect;
 if fmMain.MyConnection1.Connected=true then
  begin
    Result:=True;
  end
  else
  Result:=false;
end;

procedure tuser.ResetTelVarGeb;
var
myQuery:TMyQuery;
begin
try
myQuery:=TMyQuery.Create(self);
myQuery.Connection:=fmMain.MyConnection1;
myQuery.SQL.Text:='update sap set TelVarGeb=""';
myQuery.Execute;
finally
  myQuery.Free;
end;

end;

end.

Nun meine Frage:

Wie kann ich eine Abhängigkeit erzeugen zwischen den proceduren.

zb.

user.ResetTelVarGeb kann erst dann ausgeführt werden, wenn die funktion user.login alls Result ein "true" liefert ?



lg
Bundy

[Gollum]

Hallo,

indem Du eine private Variable einführst, die den Zusatnd der Connection speichert:

Delphi-Quellcode:

type 
  tuser = class(tobject) 
  private
    fWasConnected:Boolean;
  public 
    ...
  end;

...
function tuser.login(aUsername, aPassword,aIP,aDatabase: string): boolean; 
begin
  ...
  ...
  fWasConnected:=fmMain.MyConnection1.Connected;  
  Result:=fWasConnected; 
end; 

procedure tuser.ResetTelVarGeb; 
var myQuery:TMyQuery; 
begin 
  if fWasConnected then 
  begin
    ...
  end
  else
  begin
    ...
  end;
end;

[Mavarik]

Hallo!

Als schnelle Antwort würde ich sagen, mit einem globalen Boolean....

Multitasking/Multithread fest?

Login erzeugt eine Session die in der anderen Procedure abgefragt werden kann....

Frank

PS.: Oder besser die Lösung von Gollum (Dachte es ging um Internet)

[bundy]

die Lösung von Gollum hört sich prima an

danke euch !

lg
Bundy