Activity for Hafedh TRIMECHE
-
Hafedh TRIMECHE posted a comment on ticket #597
It works as expected now! Thanks.
-
Hi, I upgraded SVN to 8170 (*8.0-patches: fix a bug introduced in #8155) but exception still raising at: function TZParam.GetIsNulls(Index: Cardinal): Boolean; begin if (FArraySize > 0) and (Index <= FArraySize) then Result := TBooleanDynArray(FData.pvDynArray.VIsNullArray)[Index] else if (Index > FArraySize) then raise CreateIndexError(Index) else raise CreateConversionError(FSQLDataType, stArray); end; I rolled back to: if LBytes=nil then AsString := '' else AsBytes := LBytes;
-
The exception is raised because of setting Field.AsBytes to nil! Field.AsBytes := nil; I got around the problem by setting Field.AsString to ''. Field.AsString := ''; Best regards.
-
Hi, It seams that the exception is caused by the NULL content of the new added column (Blob). Invoking Field.AsBytes raised the exception. Best regards.
-
List index out of bounds
-
Please also note that after reboot the status becomes (Init > unknown) again!
-
Please also note that after reboot the status becomes Init again!
-
HAST: Activation must be done manually
-
The Unique ID is located in /etc/hostid. I'll change it and try to set HAST
-
Duplicated Machine ID
-
Problem removing CARP configuration
-
Hyper-V Integration Services
-
GlusterFS
-
Dear Jhonson, Thank you for your prompt response. The Bitmap still exported without BMP File Header. This function would resolve the problem: function TImage32.ToBitmap:TBitmap; begin Result := TBitmap.Create; Result.Width := Width; Result.Height := Width; Result.PixelFormat := pf24bit; CopyToDc(Result.Canvas.Handle); end; Best regards.
-
BMP & GIF problem
-
Warnings
-
ZDbcSqLiteResultSet compile error.
-
Patch applied. Problem fixed. Best regards.
-
Hi Michael, I use FireBird 4.0.0.2200 Best regards.
-
Hello, Please note that the revision is set to: 6846. Best regards.
-
Access Violation (IReferenceCounted)
-
Allocate & Free memory problem
-
Allocate & Free memory problem
-
Allocate & Free memory problem
-
EAccessViolation opening firebird Database
-
Using this code with UseMetadata set to False raised the exception. Switching UseMetadata to True the connection is made. Setting UseMetadata to False is for performance raison. procedure TDBForm.Button2Click(Sender: TObject); var Connection : TZConnection; Query : TZQuery; begin Connection := TZConnection.Create(nil); with Connection do begin LibLocation := LibName; Database := FireBirdPath+DatabaseName; UseMetadata := False; Protocol := 'firebirdd-3.0'; User := 'SYSDBA'; Password := 'masterkey';...
-
Using this code with UseMetadata set to False raised the exception. Switching UseMetadata to True the connection is made. Setting UseMetadata set to False is for performance raison. procedure TDBForm.Button2Click(Sender: TObject); var Connection : TZConnection; Query : TZQuery; begin Connection := TZConnection.Create(nil); with Connection do begin LibLocation := LibName; Database := FireBirdPath+DatabaseName; UseMetadata := False; Protocol := 'firebirdd-3.0'; User := 'SYSDBA'; Password := 'masterkey';...
-
EAccessViolation opening firebird Database
-
The viewer can't be scaled. Its resolution is set to 96 (Screen resolution). So, the scaling ratio should be maintained at value 1. To be scaled, the resolution of the device context on which the viewer will render, should be higher enough (72 x scale) and it's also valid for the viewer context (screen) itself. The 2 devices should offer the scaling possibility to get output result as expected.
-
Hello, Please note that the problem persisted even the page size scaled. Would rendering with anti-aliaising be used? procedure THTMLToXForm.HTMLViewerLitePDFClick(Sender: TObject); var pdf : TLitePDF; DC : HDC; ACanvas : TCanvas; mmX , mmY : Double; begin pdf := TLitePDF.Create; pdf.SetUnit(LitePDFUnit_100th_mm); pdf.CreateMemDocument; mmX := pdf.MMToUnit(Size.cx*25.4/96); mmY := pdf.MMToUnit(Size.cy*25.4/96); DC := pdf.AddPage(Round(mmX),Round(mmY),Size.cx,Size.cy,Cardinal(LitePDFDrawFlag_None));...
-
Hello, Please not that the problem persisted even the page size scaled. Would rendering with anti-aliaising be used? procedure THTMLToXForm.HTMLViewerLitePDFClick(Sender: TObject); var pdf : TLitePDF; DC : HDC; ACanvas : TCanvas; mmX , mmY : Double; begin pdf := TLitePDF.Create; pdf.SetUnit(LitePDFUnit_100th_mm); pdf.CreateMemDocument; mmX := pdf.MMToUnit(Size.cx*25.4/96); mmY := pdf.MMToUnit(Size.cy*25.4/96); DC := pdf.AddPage(Round(mmX),Round(mmY),Size.cx,Size.cy,Cardinal(LitePDFDrawFlag_None));...
-
Text justify problem
-
litePDF_SetEvalFontFlagCallback
-
Add virtual BeforeAccept & BeforeConnect to TSSLOpenSSL
-
Hi, The SVN version used: trunk 7.2 The exception generated because of retrieving RecordCount in the transaction frame (before commit). Placing "Query.Connection.Commit;" after "rc := Query.RecordCount;" instruction solved the problem. Please note that this code worked fine before updating to new SVN version. Query.SQL.Text := 'SELECT * FROM ...) ROWS 1'; Query.Params.ParamByName('P0').AsString := '..'; Query.Params.ParamByName('P1').AsString := '...'; Query.Connection.StartTransaction; Query.Open;...
-
Sorry for missing details about Database & Compiler. Database : FireBird 4.0 with LibLocation := 'fbclient.dll'; Protocol := 'firebirdd-3.0'; UseMetadata := False; User := 'SYSDBA'; Password := 'masterkey'; TransactIsolationLevel := tiReadCommitted; AutoCommit := True; Compiler: Delphi 10.2 Exception raised when attemping to read records's number using Query.RecordCount in FetchTables procedure. No problem with older SVN versions (<= 4191) procedure TSqlDB.FetchTables; const TABLES_SQL= 'SELECT RDB$RELATION_NAME'...
-
Error Code: -502
1