paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-15 17:49:25 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ fixed some memory issues when using parameters

Browse Source 
git-svn-id: trunk@1396 -
This commit is contained in:
joost 2005-10-15 22:32:03 +00:00
parent 082b4a4017
commit 908cf4c7e2
1 changed files with 12 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
fcl/db/sqldb/postgres/pqconnection.pp
View File

@ -466,7 +466,7 @@ end;
procedure TPQConnection.Execute(cursor: TSQLCursor;atransaction:tSQLtransaction;AParams : TParams); procedure TPQConnection.Execute(cursor: TSQLCursor;atransaction:tSQLtransaction;AParams : TParams);
var ar : array of pchar; var ar : array of pointer;
i : integer; i : integer;
s : string; s : string;
@ -479,13 +479,18 @@ begin
begin begin
setlength(ar,Aparams.count); setlength(ar,Aparams.count);
for i := 0 to AParams.count -1 do for i := 0 to AParams.count -1 do
begin
case AParams[i].DataType of case AParams[i].DataType of
ftdatetime : ar[i] := pchar(formatdatetime('YYYY-MM-DD',AParams[i].AsDateTime)); ftdatetime : s := formatdatetime('YYYY-MM-DD',AParams[i].AsDateTime);
else else
ar[i] := pchar(AParams[i].asstring); s := AParams[i].asstring;
writeln(ar[i]); end; {case}
GetMem(ar[i],length(s)+1);
StrMove(PChar(ar[i]),Pchar(s),Length(S)+1);
end; end;
res := PQexecPrepared(tr,pchar('prepst'+nr),Aparams.count,@Ar[0],nil,nil,0) res := PQexecPrepared(tr,pchar('prepst'+nr),Aparams.count,@Ar[0],nil,nil,0);
for i := 0 to AParams.count -1 do
FreeMem(ar[i]);
end end
else else
res := PQexecPrepared(tr,pchar('prepst'+nr),0,nil,nil,nil,0); res := PQexecPrepared(tr,pchar('prepst'+nr),0,nil,nil,nil,0);