delphi-xe2

Last revision Chromium Embedded Framework 3

你说的曾经没有我的故事 提交于 2019-12-24 02:09:51
问题 Where can I find the latest revision of the Chromium Embedded Framework 3 for Delphi? I downloaded it from this page with TortoiseSVN: http://code.google.com/p/dcef3/ because CEF1 gave too many problems, but it is a very old revision, there is a download of the revision 24, but the latest revision is 823. Could you tell me where to find the latest version for Delphi-XE2? Thank you very much. 回答1: There are three projects that have been mentioned here: chromiumembedded, latest revision 996

How to apply VCL Styles to DLL-based forms in Inno Setup?

前提是你 提交于 2019-12-24 00:49:30
问题 I'm using Inno Setup (Unicode) with a set of DLL's that I'm writing in Delphi XE2. The DLL's have VCL forms which are shown during the installation wizard/progress. I've tried out implementing VCL Styles in my Inno Setup installer. All is well, except for the forms which are created within these DLL's. Some of the form is skinned, but not all of it... As you can see, the form's background color, the list view background color, and the font color have changed. However, the list view headers,

Delphi XE2 / Indy TIdTCPServer / “Connection reset by peer”

半腔热情 提交于 2019-12-24 00:28:00
问题 I'm with one problem using Indy in Delphi XE2 to send TCP Messages using TIdTCPServer. For exemple: I have 2 devices and i'll go communicate with device 1. When i send messages to device 1, the messages were send fine. But without close the program, when i send messages to device 2, Delphi returns "Connection reset by peer". Below is my code: procedure TMainHost.idTCPServerNewConnect(AContext: TIdContext); var Client: TSimpleClient; begin Sleep(1000); Client := TSimpleClient.Create(); Client

Assign [array of byte] to a Variant with no Unicode conversion

帅比萌擦擦* 提交于 2019-12-23 21:32:05
问题 Consider the following code snippet (in Delphi XE2): function PrepData(StrVal: string; Base64Val: AnsiString): OleVariant; begin Result := VarArrayCreate([0, 1], varVariant); Result[0] := StrVal; Result[1] := Base64Val; end; Base64Val is a binary value encoded as Base64 (so no null bytes). The ( OleVariant ) Result is automatically marshalled and sent between a client app and a DataSnap server. When I capture the traffic with Wireshark, I see that both StrVal and Base64Val are transferred as

Why does FindType fail to get RTTI when GetType succeeds?

被刻印的时光 ゝ 提交于 2019-12-23 19:36:58
问题 I'm trying to get hold of an object using TRttiContext.FindType(QualifiedTypeName) . Here's what I've got: program MissingRTTI; {$APPTYPE CONSOLE} uses System.SysUtils, RTTI, Classes; type TMyClass = class(TObject) end; var rCtx: TRttiContext; rType: TRttiInstanceType; begin rCtx := TRttiContext.Create(); rType := rCtx.GetType(TypeInfo(TMyClass)) as TRttiInstanceType; if (rType <> nil) then begin WriteLn('Type found using TypeInfo'); end; rType := rCtx.FindType(TMyClass.QualifiedClassName) as

Overloading operator with array

夙愿已清 提交于 2019-12-23 17:52:08
问题 i have this unit: unit Main.TIns; interface type TIns = record private type TInsArray = array [0..90] of Integer; var FInsArray: TInsArray; public class operator Implicit(const Value: Integer): TIns; class operator Add(const Elem1: TIns; const Elem2: Integer): TIns; end; implementation class operator TIns.Implicit(const Value: Integer): TIns; var iIndex: Integer; begin if Value = 0 then for iIndex := 0 to 90 do Result.FInsArray[iIndex] := 0; end; class operator TIns.Add(const Elem1: TIns;

Is it possible to move the descendant of generic class to implementation section?

混江龙づ霸主 提交于 2019-12-23 15:39:49
问题 I would like to clean concrete classes from interface section, but the compiler doesn't allow to make it. Whether there is an opportunity to make so that the external code couldn't address to concrete classes? unit Unit2; interface uses System.SysUtils , System.Generics.Collections , System.Win.Registry ; type IMyRegistry<T> = interface procedure WriteValue(const Key, Ident: string; const AValue: T); function ReadValue(const Key, Ident: string; const ADefVal: T): T; end; TMyRegistry<T> =

Compiler error when compiling runtime package using MSBuild on Delphi XE2

左心房为你撑大大i 提交于 2019-12-23 15:34:40
问题 I am in the process of upgrading our build server (Jenkins) to Delphi XE2. While compiling a runtime package the following error occurs: ComponentsR.vrc(61): error RC2135: file not found: ComponentsR_Icon4.ico There are no icons or resources in this runtime package, so I don't know what to do with this message. What's the "vrc" file btw? Thanks for your help. 回答1: This happens while upgrading the dproj file of a package. The entry is created but the ico file is not (it is not used anyway).

SerialForms.pas(17): W1010 Method 'Create' hides virtual method of base type 'TComponent'

被刻印的时光 ゝ 提交于 2019-12-23 14:21:08
问题 I created a class FormInfo = class (TComponent) private FLeftValue : Integer; FTopValue : Integer; FHeightValue : Integer; FWidthValue : Integer; public constructor Create( AOwner : TComponent; leftvalue : integer; topvalue : integer; heightvalue : integer; widthvalue : integer); protected procedure GetChildren(Proc: TGetChildProc; Root: TComponent); override; function GetChildOwner: TComponent; override; //procedure SetParentComponent(Value : TComponent); override; published property

Unable to load WSDL File/Location in Delphi for VIES SOAP Service

ⅰ亾dé卋堺 提交于 2019-12-23 13:02:56
问题 I am trying to create a Delphi XE2 function to check VAT numbers via the SOAP service of VIES: http://ec.europa.eu/taxation_customs/vies/checkVatService.wsdl When I use Delphi X2's WSDL importer with the above URL taking the default values, I get the following error: Unable to load WSDL File/Location: http://ec.europa.eu/taxation_customs/vies/checkVatService.wsdl. Error [The requested header was not found - URL:http://ec.europa.eu/taxation_customs/vies/checkVatService.wsdl - SOAPAction:""