jvcl

Sporadic Access Violation in TJvMemoryData.InternalSetFieldData

跟風遠走 提交于 2020-07-07 11:27:12
问题 I am trying to resolve an access violation in a Delphi XE7 application which is occurs in this code, which is part of the Jedi VCL JvMemoryDataset component (current source at Github): begin Data^ := Ord(Buffer <> nil); Inc(Data); if Buffer <> nil then Move(Buffer^, Data^, CalcFieldLen(Field.DataType, Field.Size)) <---------- AV here else FillChar(Data^, CalcFieldLen(Field.DataType, Field.Size), 0); end; The code sporadically causes a read access violation at address 04020111. Is there an

Sporadic Access Violation in TJvMemoryData.InternalSetFieldData

放肆的年华 提交于 2020-07-07 11:26:04
问题 I am trying to resolve an access violation in a Delphi XE7 application which is occurs in this code, which is part of the Jedi VCL JvMemoryDataset component (current source at Github): begin Data^ := Ord(Buffer <> nil); Inc(Data); if Buffer <> nil then Move(Buffer^, Data^, CalcFieldLen(Field.DataType, Field.Size)) <---------- AV here else FillChar(Data^, CalcFieldLen(Field.DataType, Field.Size), 0); end; The code sporadically causes a read access violation at address 04020111. Is there an

Sporadic Access Violation in TJvMemoryData.InternalSetFieldData

亡梦爱人 提交于 2020-07-07 11:25:25
问题 I am trying to resolve an access violation in a Delphi XE7 application which is occurs in this code, which is part of the Jedi VCL JvMemoryDataset component (current source at Github): begin Data^ := Ord(Buffer <> nil); Inc(Data); if Buffer <> nil then Move(Buffer^, Data^, CalcFieldLen(Field.DataType, Field.Size)) <---------- AV here else FillChar(Data^, CalcFieldLen(Field.DataType, Field.Size), 0); end; The code sporadically causes a read access violation at address 04020111. Is there an

How can you tell if a TJvDockServer Form is unpinned or pinned?

独自空忆成欢 提交于 2020-01-05 05:55:25
问题 I was just wondering if anybody knew how to determine if a TJvDockServer Form is pinned or unpinned easily. The only way I've been able to do so is by checking if a parent form is a TJvDockVSPopupPanel via... ancestor := GetAncestors(Self, 3); if (ancestor is TJvDockTabHostForm) then if ancestor.Parent <> nil then begin if ancestor.Parent is TJvDockVSPopupPanel then begin // Code here end; end; and getAncestors is... function GetAncestors(Control : TControl; AncestorLevel : integer) :

What regex can I use to extract URLs from a Google search?

拟墨画扇 提交于 2020-01-03 05:27:15
问题 I'm using Delphi with the JCLRegEx and want to capture all the result URL's from a google search. I looked at HackingSearch.com and they have an example RegEx that looks right, but I cannot get any results when I try it. I'm using it similar to: Var re:JVCLRegEx; I:Integer; Begin re := TJclRegEx.Create; With re do try Compile('class="?r"?>.+?href="(.+?)".*?>(.+?)<\/a>.+?class="?s"?>(.+?)<cite>.+?class="?gl"?><a href="(.+?)"><\/div><[li|\/ol]',false,false); If match(memo1.lines.text) then

F2051 Unit JclUnitVersioning was compiled with a different version of System.Contnrs.TObjectList.Remove

北城以北 提交于 2020-01-03 03:07:06
问题 I'm migrating a Delphi 2 project to RAD Studio XE2. When I try to compile I get [DCC Fatal Error] MyUnit.pas(9): F2051 Unit JclUnitVersioning was compiled with a different version of System.Contnrs.TObjectList.Remove at the following row: unit MyUnit; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, DB, DBTables, TB97, ExtCtrls, Grids, DBGrids, Vcl.Mask, JvExMask, Vcl.DBLookup, JvToolEdit, {<-- error here} TB97Ctls; {...} I tried uninstalling

Delphi JvDockServer JvDockClient notification for undocking (floating) of a client form

安稳与你 提交于 2019-12-25 02:43:09
问题 Using the JEDI VCL library with Delphi, I put a JvDockServer on the main form, and on another that should be docked to the main form, I have JvDockClient using dock style JvDockVIDVCStyle. While Docking works great, I would like to be notified when a client form changes from docked to undocked (floating) mode. 回答1: Update The JVCL is now modified to contain this feature built in! The TForm's built in events is now fired when you dock a form. Check out the DockingInCode demo in the JEDI JVCL,

How to implement a callback method within DLL (Delphi / TJVPluginManager + TJvPlugin)

陌路散爱 提交于 2019-12-23 02:17:17
问题 I'm building an application working with plugins. I'm using the excellent JVCL plugin framework. I first started to use package plugin. It worked like a charm but had a big drawback : the needs to give runtimes bpl (23Mo). So I switch to DLL plugin. I need to call a method (procedure having 3 parametes) from hostapplication but I don't know how to do it. OBones explained in the Jedi newgroup to use callback functions but I have no clue on how to achieve this. Can someone kindly explain me or

Delphi: Should a thread ever be created “not suspended”?

橙三吉。 提交于 2019-12-22 04:28:22
问题 I've been trying to track down a memory leak in Jedi VCL's JvHidControllerClass.pas , which i came across this change in the source history: Older revision: constructor TJvHidDeviceReadThread.CtlCreate(const Dev: TJvHidDevice); begin inherited Create(True); Device := Dev; NumBytesRead := 0; SetLength(Report, Dev.Caps.InputReportByteLength); end; Current revision: constructor TJvHidDeviceReadThread.CtlCreate(const Dev: TJvHidDevice); begin inherited Create(False); Device := Dev; NumBytesRead :

TabBar whose style can be changed dynamically based on JvTabBar

寵の児 提交于 2019-12-13 03:56:08
问题 I have tried many different libraries, but none came. None of them can not be specified without introducing his own style in Painter. I need to be able to quickly and dynamically change the style tab. In response, I showed my developments. If someone has similar developments - write them in response. 回答1: I decided to upgrade the simplest of them: TJvTabBar of JVCL (latest revision: 13415) Here is the result. Before (default) After Style sources (All graphics imported from png files with