Upgrade 8.3.2 >> 8.4.1
Posted: Tue 02 Mar 2021 23:44
Delphi 10.4.1
Windows 10 x64
APP build winx32
After upgrade my programm ruins at all..
MultipleConnections - what i it? How does i works?
I deleted all uniconnection from all threads, but programm still says that connection exceeded O_O
Uniquery ExecSQL make an error , Again ""Unexpected server response"" ...
Downgraded to 8.3.2 .course of stable work...
P.S. lost 3 hours of life to delete\restore creation of instances in a threads...
Workable programm at 8.3.2
main thread
PostgreSQLUniProvider1: TPostgreSQLUniProvider;
UniConnection1: TUniConnection;
AliveQuery: TUniQuery;
UniTransaction1: TUniTransaction;
Q_dailynum: TUniQuery;
in all other threads
function funcname: String;
var
PG_con:TUniConnection;
PG_trans:TUniTransaction;
////PG_SQL:TPostgreSQLUniProvider;
Q_sql:TUniQuery;
temp_MS:TStringStream;
mime_enc:TIdEncoderMIME;
mime_dec:TIdDecoderMIME;
a:integer;
SQL_rest_refresh_tables,start_time,SQL_time:string;
begin
ErrorCode:=0;
ErrorDesc:='';
{ TODO : Implement method echoDouble }
////PG_SQL:=TPostgreSQLUniProvider.Create(nil);
PG_con:=TUniConnection.Create(nil);
PG_trans:=TUniTransaction.Create(nil);
Q_sql:=TUniQuery.Create(nil);
PG_con.ProviderName:='PostgreSQL';
PG_con.DefaultTransaction:=PG_trans;
Q_sql.Connection:=PG_con;
Q_sql.Transaction:=PG_trans;
mime_enc:=TIdEncoderMIME.Create(nil);
mime_dec:=TIdDecoderMIME.Create(nil);
//INFO
PG_con.Server:=SERVER;
PG_con.Port:=strtoint(PORT);
PG_con.Database:=DATABASE;
PG_con.Username:=USERNAME;
PG_con.Password:=PASSWORD;
try
except
on E:Exception do
begin
ErrorCode:=1;
ErrorDesc:=E.ClassName+' : '+E.Message;
end;
end;
PG_con.Free;
Q_sql.Free;
PG_trans.Free;
////PG_SQL.Free;
temp_MS.Free;
mime_enc.Free;
mime_dec.Free;
end;
WHAT do i need to change for working with 8.4.1 version?!!
Windows 10 x64
APP build winx32
After upgrade my programm ruins at all..
MultipleConnections - what i it? How does i works?
I deleted all uniconnection from all threads, but programm still says that connection exceeded O_O
Uniquery ExecSQL make an error , Again ""Unexpected server response"" ...
Downgraded to 8.3.2 .course of stable work...
P.S. lost 3 hours of life to delete\restore creation of instances in a threads...
Workable programm at 8.3.2
main thread
PostgreSQLUniProvider1: TPostgreSQLUniProvider;
UniConnection1: TUniConnection;
AliveQuery: TUniQuery;
UniTransaction1: TUniTransaction;
Q_dailynum: TUniQuery;
in all other threads
function funcname: String;
var
PG_con:TUniConnection;
PG_trans:TUniTransaction;
////PG_SQL:TPostgreSQLUniProvider;
Q_sql:TUniQuery;
temp_MS:TStringStream;
mime_enc:TIdEncoderMIME;
mime_dec:TIdDecoderMIME;
a:integer;
SQL_rest_refresh_tables,start_time,SQL_time:string;
begin
ErrorCode:=0;
ErrorDesc:='';
{ TODO : Implement method echoDouble }
////PG_SQL:=TPostgreSQLUniProvider.Create(nil);
PG_con:=TUniConnection.Create(nil);
PG_trans:=TUniTransaction.Create(nil);
Q_sql:=TUniQuery.Create(nil);
PG_con.ProviderName:='PostgreSQL';
PG_con.DefaultTransaction:=PG_trans;
Q_sql.Connection:=PG_con;
Q_sql.Transaction:=PG_trans;
mime_enc:=TIdEncoderMIME.Create(nil);
mime_dec:=TIdDecoderMIME.Create(nil);
//INFO
PG_con.Server:=SERVER;
PG_con.Port:=strtoint(PORT);
PG_con.Database:=DATABASE;
PG_con.Username:=USERNAME;
PG_con.Password:=PASSWORD;
try
except
on E:Exception do
begin
ErrorCode:=1;
ErrorDesc:=E.ClassName+' : '+E.Message;
end;
end;
PG_con.Free;
Q_sql.Free;
PG_trans.Free;
////PG_SQL.Free;
temp_MS.Free;
mime_enc.Free;
mime_dec.Free;
end;
WHAT do i need to change for working with 8.4.1 version?!!