I am using FastReport VCL 5 to export PDF report file with Delphi source code.
FastReport VCL 5 has Compression function.
I want ask about this function as below:
When i use this function to compress report file, what will be compressed?
Exp: Compress font, image or what?
i will put a image that is curve in background form and in run i will form should be hide and image show in curve mode
for this part i use what? vcl form or fire monkey application?
i am low level
please help me
thanks for guide
i will looking component that control custom image that propertis hover ,over click color and ,... , and that espical efect .i was download graphic32 but i have n't control . i want looking component that control in tools .for example tms component have control dbgid . i will make a button custom that is enable that have one effect and when disabled another effect .what this do ?
please help me
I just can't seem to get this right.
I have a Com Class written in VB.Net that brings up a form where users can enter information.
I have a delphi program that opens this class and it shows the form fine.
The problem I have is with events raised in the Com Class. It just does not get fired in delphi, although I can assign it to a procedure.
Hi Delphi gurus. I have had this com component registered on my machine, imported the component (xxxx_TLB got generated) and then I installed the component.
Is there any way that I could use the xxxx_TLB file after loading it dynamically and I don't have to install the component?? I mean all it contains is interface, dispinterface, CoClass and a class. Can not I instantiate this class dynamically?
Hello. I am trying to get cpu usage in delphi, using Performace Data Helper API. At the moment I know just two methods of getting it. One using Registry Interface and second PDH Interface and latter is easier than former. I am trying to use following code but it produces PDH_INVALID_ARGUMENT meaning either argument is missing or is invalid.
hStatus := PdhOpenQuery(Nil, 0, hQuery);
if hStatus <> ERROR_SUCCESS then// hStatus = PDH_INVALID_ARGUMENT begin
GetErrorMsg(hStatus, sErrorMsg); // sErrorMsg = 'argument is invalid or missing'
SO WHAT COULD BE WRONG? Thanks for any pointer.
May be irrelevant, but to give an idea that pdh variables are intialized with what values.
PdhOpenQuery : function( pReserved: Pointer;
dwUserData: DWORD; phQuery: PDH_HQUERY ): PDH_STATUS; stdcall;
// similarly the rest of the pdh functions here
DllHandle : THandle;
hStatus : PDH_STATUS;
DllHandle := LoadLibrary('pdh.dll');
if DllHandle <> 0thenbegin
PdhOpenQuery := GetProcAddress( DllHandle, 'PdhOpenQuery' );
// similarly the rest of the pdh functions hereend;
Not sure your compiler is able to delay load dynamic library[^] which is another option. I haven't got chance to use this syntax though...
I would use the following to dynamically load the function.
type//definition is based on http://gr32ex.googlecode.com/svn/trunk/GR32Ex/Examples/DesktopSnow/GPSysHook/api/JwaPdh.pas
PDH_HQUERY = THANDLE;
PDH_STATUS = DWORD;
FuncPdhOpenQuery = function(szDataSource: LPCTSTR; dwUserData: DWORD_PTR;
var phQuery: PDH_HQUERY): PDH_STATUS; stdcall;
//and your function implementation would be:
if DllHandle > 0thenbegin
@PdhOpenQuery:= GetProcAddress(DllHandle, 'PdhOpenQueryW');//notice it's either W or A as stated in MSDN (http://msdn.microsoft.com/en-us/library/windows/desktop/aa372652(v=vs.85).aspx)if (Assigned(PdhOpenQuery)) thenbegin
Res:= PdhOpenQuery(nil, 0, QueryHandle);
finallyif (DllHandle > 0)
Last Visit: 10-Dec-19 8:28 Last Update: 10-Dec-19 8:28