delphi-xe3

Text resource won't compile into my Delphi exe

∥☆過路亽.° 提交于 2019-12-11 14:44:06
问题 I use a list of words in my Delphi program, and until now I would place the list in the Lines property of a TMemo. I don't need the visual component, though, rather a TStringList, so now I want to do things the proper way by using a resource file for this, and load my TStringList from the resource. I tried applying the information from this answer, but I get an error: [dcc32 Error] E2161 Error: RLINK32: Unsupported 16bit resource in file "D:\etc\Unit1.rc" For good measure, I have this Unit1

ISAPI web application hanging if FastReport.PrepareReport is called

China☆狼群 提交于 2019-12-11 13:18:27
问题 begin try Raport.PrepareReport(True); except on E:Exception do raise ; end; // if Raport.Engine.Run then Raport.Export(frxPDF); end; When running as an Isapi dll the web application hangs o Raport.PrepareReport(true), when running with a local application server as an .exe application it runs!... The folder has permissions for total control files for IIS_IUSRS. Why it would be hanging? 回答1: I've experienced if there is an unhandled exception in the ISAPI dll the app crashes. You're handling

How to insert integer value into SQLite table at Delphi

放肆的年华 提交于 2019-12-11 11:22:52
问题 I am trying to insert integer value in my SQLite table at Delphi. In table emp usergroup_id is integer and label , description are string data type. My code is as follows: var gid: Integer; sdescription,ldescription: String; begin sdescription := RzEdit1.Text; ldescription := RzMemo1.Text; gid := Integer(RzComboBox1.Items.Objects[RzComboBox1.Items.IndexOf(gname)]); try SQLConnection1.Connected := true; SQLMonitor1.Active := True; sSql := 'INSERT INTO emp(usergroup_id, label, description)

How do I report error messages to the IDE from a custom build tool?

霸气de小男生 提交于 2019-12-11 08:05:56
问题 I am using a custom build tool in Delphi XE3. This executes as expected, but when my custom build tool fails for some reason, it will return a non-zero exit code and Delphi will just report that the build has failed. The build tool will write to stdout and stderr in case of any errors, but those do not show up in the Messages window: the Build tab just shows Failed (after brcc32 is run) in the Output tab I can see that the target BuildVersionResource is run, then the target PreBuildEvent is

Delphi XE3, ugly StringGrid's borders

…衆ロ難τιáo~ 提交于 2019-12-11 02:38:30
问题 Why StringGrid's borders are so unclear in XE3, comparing to Delphi7? How to fix that? 回答1: After Delphi 2010 all the Grids are themed. To disable the new theme on a grid you have to set the property DrawingStyle to gdsClassic in the objects inspector. 来源: https://stackoverflow.com/questions/12996363/delphi-xe3-ugly-stringgrids-borders

Saving VirtualStringTree Node Data

妖精的绣舞 提交于 2019-12-11 02:37:46
问题 I am trying to move a project from D6 to D-XE3. I am getting garbage when saving and loading the tree data in the OnSaveNode and OnLoadEvents using version 5.10 of VirtualStringTree. I'm probably not handling Unicode correctly, but there could be some other ignorance on my part: procedure TfMain.vstGridSaveNode(Sender: TBaseVirtualTree; Node: PVirtualNode; Stream: TStream); var Data: PStkData; begin Data := Sender.GetNodeData(Node); // Owned: boolean; Stream.Write(Data.Owned, SizeOf(boolean)

Opening Paradox database; 'PDOXUSRS.NET' workaround?

非 Y 不嫁゛ 提交于 2019-12-10 19:33:33
问题 I'm writing an application that has to open a preexisting BDE database that has been saved by a third party. In this application, I currently have a TDatabase ( DriverName : STANDARD ) with path set correctly in Params . I can now set Connected to true without an error message. There is also a TTable with DatabaseName set to the values of the TDatabase and TableName set to the .db-file that lies in the folder (the name was automatically filled in, I only hat to select it). Now the problem: If

Creating Accessible UI components in Delphi

ε祈祈猫儿з 提交于 2019-12-10 18:54:11
问题 I am trying to retrieve accessible information from a standard VCL TEdit control. The get_accName() and Get_accDescription() methods return empty strings, but get_accValue() returns the text value entered into the TEdit. I am just starting to try to understand the MSAA and I'm a bit lost at this point. Does my TEdit need to have additional published properties that would be exposed to the MSA? If so would that necessitate creating a new component that descends from TEdit and adds the

Delphi platform error on Hewlett Packard customized OEM Windows

陌路散爱 提交于 2019-12-10 17:49:42
问题 I keep getting the same error setting up my computer so it will run Delphi, I've already set up a user override on the PLATFORM environment variable, to convert it to win32 but it's still giving the same error; [Error Error] Invalid PLATFORM variable "HPD". PLATFORM must be one of the following: "Win32", "Win64", "Android", "iOSSimulator", "iOSDevice", or "OSX32". If PLATFORM is defined by your system's environment, it must be overridden in the RAD Studio IDE or passed explicitly on the

How to draw part of a image?

99封情书 提交于 2019-12-10 17:19:59
问题 I have an ordinary Bitmap loaded with a PNGImage. The following code shows the whole image; but what I am looking for is to show like the sample below for example. I want basically to reduce the virtual "place" where it would be painted. Note that I can't just resize the PaintBox by reasons I can enumerate if someone asks. I guess I have to use Rects and or some Copy function, but I could not figure out by myself. Does anyone know how to do? procedure TForm1.PaintBox1Paint(Sender: TObject);