opensource/HeidiSQL
1
0
Fork 0
mirror of https://github.com/HeidiSQL/HeidiSQL.git synced 2025-08-06 18:24:26 +08:00
Code Issues Packages Projects Releases Wiki Activity

Make query execution unicode safe, mainly for a bunch of procedures and functions in Heidi itself plus various neighbours in Zeos.

Browse Source
This commit is contained in:
Ansgar Becker
2008-06-17 17:06:01 +00:00
parent 80c5d9cdd4
commit dced2df45e
18 changed files with 139 additions and 139 deletions
Download Patch File Download Diff File Expand all files Collapse all files

20
source/mysqlquerythread.pas
View File

@ -51,7 +51,7 @@ type
ThreadID : Integer;
ConnectionID : Cardinal;
Action : Integer;
Sql : String;
Sql : WideString;
Result : Integer;
Comment : String;
end;
@ -67,7 +67,7 @@ type
FMysqlConn : TZConnection;
FConn : TOpenConnProf;
FOwner : TObject; // TMysqlQuery object
FSql : String;
FSql : WideString;
FCallback: TAsyncPostRunner;
FPostDataSet: TDeferDataSet;
FResult : Integer;
@ -87,11 +87,11 @@ type
procedure NotifyStatusViaEventProc (AEvent : Integer);
procedure NotifyStatusViaWinMessage (AEvent : Integer);
function AssembleResult () : TThreadResult;
function RunDataQuery (ASql : String; var ADataset : TDataset; out AExceptionData : TExceptionData; callback: TAsyncPostRunner) : Boolean;
function RunUpdateQuery (ASql : String; var ADataset : TDataset; out AExceptionData : TExceptionData; callback: TAsyncPostRunner) : Boolean;
function QuerySingleCellAsInteger (ASql : String) : Integer;
function RunDataQuery (ASql : WideString; var ADataset : TDataset; out AExceptionData : TExceptionData; callback: TAsyncPostRunner) : Boolean;
function RunUpdateQuery (ASql : WideString; var ADataset : TDataset; out AExceptionData : TExceptionData; callback: TAsyncPostRunner) : Boolean;
function QuerySingleCellAsInteger (ASql : WideString) : Integer;
public
constructor Create (AOwner : TObject; AConn : TOpenConnProf; ASql : String; ASyncMode : Integer; Callback: TAsyncPostRunner; APostDataSet: TDeferDataSet);
constructor Create (AOwner : TObject; AConn : TOpenConnProf; ASql : WideString; ASyncMode : Integer; Callback: TAsyncPostRunner; APostDataSet: TDeferDataSet);
destructor Destroy; override;
property NotifyWndHandle : THandle read FNotifyWndHandle write SetNotifyWndHandle;
end;
@ -120,7 +120,7 @@ begin
Result.Comment := FComment;
end;
constructor TMysqlQueryThread.Create (AOwner : TObject; AConn : TOpenConnProf; ASql : String; ASyncMode : Integer; Callback: TAsyncPostRunner; APostDataSet: TDeferDataSet);
constructor TMysqlQueryThread.Create (AOwner : TObject; AConn : TOpenConnProf; ASql : WideString; ASyncMode : Integer; Callback: TAsyncPostRunner; APostDataSet: TDeferDataSet);
var
mc : TZConnection;
begin
@ -265,7 +265,7 @@ begin
Result.HelpContext := AException.HelpContext;
end;
function TMysqlQueryThread.QuerySingleCellAsInteger(ASql: String): Integer;
function TMysqlQueryThread.QuerySingleCellAsInteger(ASql: WideString): Integer;
var
ds : TDataSet;
e : TExceptionData;
@ -320,7 +320,7 @@ begin
TMysqlQuery (FOwner).PostNotification(qr,MQE_FREED);
end;
function TMysqlQueryThread.RunDataQuery(ASql: String;
function TMysqlQueryThread.RunDataQuery(ASql: WideString;
var ADataset: TDataset; out AExceptionData : TExceptionData; callback: TAsyncPostRunner): Boolean;
var
q : TDeferDataSet;
@ -346,7 +346,7 @@ begin
end;
end;
function TMysqlQueryThread.RunUpdateQuery(ASql: String; var ADataset: TDataset; out AExceptionData : TExceptionData; callback: TAsyncPostRunner): Boolean;
function TMysqlQueryThread.RunUpdateQuery(ASql: WideString; var ADataset: TDataset; out AExceptionData : TExceptionData; callback: TAsyncPostRunner): Boolean;
var
q : TDeferDataSet;
begin