| Subject | Re: FieldEntryTypes := [fetSQLType]; |
|---|---|
| Author | |
| Post date | 2014-08-20T12:04:07Z |
The Cache is working now, I just set SchemaCacheDir and generate the files and send with the app then there is no problem more. I'm moving the app to the IBO.I'm having a little problem now with IBOSecurityService. I'm trying to do something like:
TTDRSecurityService = class(TIBOSecurityService)
private
protected
public
constructor create(pBanco: TIBODatabase); virtual;
destructor destroy; override;
published
end;
constructor TTDRSecurityService.create(pBanco: TIBODatabase);
begin
inherited create(nil);
self.Active := false;
if pBanco<>nil then
begin
self.Params.Clear;
self.Params.Add('user_name='+pBanco.Username);
self.Params.Add('password='+pBanco.Password);
self.ServerName := pBanco.Server;
self.Protocol := pBanco.Protocol;
self.SecurityAction := ActionDisplayUser;
self.Active := true;
end;
end;
Is just a try for now, but I'm taking a "Operation Cancelled at user's request". It's just the first try, but if you can tell me something about could make the things faster...
tanks...
TTDRSecurityService = class(TIBOSecurityService)
private
protected
public
constructor create(pBanco: TIBODatabase); virtual;
destructor destroy; override;
published
end;
constructor TTDRSecurityService.create(pBanco: TIBODatabase);
begin
inherited create(nil);
self.Active := false;
if pBanco<>nil then
begin
self.Params.Clear;
self.Params.Add('user_name='+pBanco.Username);
self.Params.Add('password='+pBanco.Password);
self.ServerName := pBanco.Server;
self.Protocol := pBanco.Protocol;
self.SecurityAction := ActionDisplayUser;
self.Active := true;
end;
end;
Is just a try for now, but I'm taking a "Operation Cancelled at user's request". It's just the first try, but if you can tell me something about could make the things faster...
tanks...