M
messah
Unregistered / Unconfirmed
GUEST, unregistred user!
library bridge;
uses
ComServ,
SysUtils,
Classes,
Windows,
DBTables,
db;
type TDel=class
public
function delexec(asvaule:string;fdname:string;path:string):string;virtual;abstract;
end;
type
Tdelrec=class(TDel)
public
function delexec(asvaule:string;fdname:string;path:string):string;override;
end;
{ TDEL}
function tdelrec.delexec(asvaule:string;fdname:string;path:string):string;
var table1:TTable;session1:TSession;
fd:string;
begin
{fd:=''+fdname+'';
table1:=Ttable.Create(nil);
session1:=TSession.Create(nil);
session1.SessionName:='pass';
table1.DatabaseName:='DBDEMOS';
table1.TableName:=path;
table1.SessionName:='pass';
session1.AddPassword('jIGGAe');
table1.Active:=True;
table1.IndexName:=fd;
table1.open;
table1.setkey;
table1.FieldByName(fd).Asstring:=asvaule;
table1.Gotokey;
table1.Delete;
table1.Refresh;
table1.Free;}
result:=path+' '+fd+' '+asvaule;
end;
function createdelrec:TDelrec;stdcall;
begin
result:=tdelrec.Create;
end;
exports
DllGetClassObject,
DllCanUnloadNow,
DllRegisterServer,
DllUnregisterServer,
createdelrec;
{$R *.RES}
begin
end.
uses
ComServ,
SysUtils,
Classes,
Windows,
DBTables,
db;
type TDel=class
public
function delexec(asvaule:string;fdname:string;path:string):string;virtual;abstract;
end;
type
Tdelrec=class(TDel)
public
function delexec(asvaule:string;fdname:string;path:string):string;override;
end;
{ TDEL}
function tdelrec.delexec(asvaule:string;fdname:string;path:string):string;
var table1:TTable;session1:TSession;
fd:string;
begin
{fd:=''+fdname+'';
table1:=Ttable.Create(nil);
session1:=TSession.Create(nil);
session1.SessionName:='pass';
table1.DatabaseName:='DBDEMOS';
table1.TableName:=path;
table1.SessionName:='pass';
session1.AddPassword('jIGGAe');
table1.Active:=True;
table1.IndexName:=fd;
table1.open;
table1.setkey;
table1.FieldByName(fd).Asstring:=asvaule;
table1.Gotokey;
table1.Delete;
table1.Refresh;
table1.Free;}
result:=path+' '+fd+' '+asvaule;
end;
function createdelrec:TDelrec;stdcall;
begin
result:=tdelrec.Create;
end;
exports
DllGetClassObject,
DllCanUnloadNow,
DllRegisterServer,
DllUnregisterServer,
createdelrec;
{$R *.RES}
begin
end.