rruz / wmi-delphi-code-creator Goto Github PK

What steps will reproduce the problem?
1. Run program, select some WMI classes & events.
2. Select a language (e.g. FreePascal)
3. Press ejecute code

What is the expected output? What do you see instead?
Compiler selection dialog shows up, in my case with 1 Lazarus/FPC compiler. If 
I press OK, nothing happens.
If I select the compiler first, then press OK, it compiles & runs.

2 suggestions:
1. Don't enable OK until a compiler is selected or
2. In the case of 1 compiler, select that compiler. If multiple compilers, 
select the first one.


What version of the product are you using? On what operating system?
1.1.2.140

Please provide any additional information below.
Love this program already.

Sorry

It HAS TO BE !!!!!!!!!!!

  CaptureConsoleOutput('"'+CompilerName+'"' + ' ' + Format(' -B -CC  "%s"', [ProjectFile]), Console);

Not only %S but compilename too otherwise it dose not work!!

What steps will reproduce the problem?
1.Select WIN32_CDROMDrive, Capabilities
2.
3.

What is the expected output? What do you see instead?
I expected to see 3,4,7 but get exception


What version of the product are you using? On what operating system?
Latest Version on Windows 8 Pro 32bit

Please provide any additional information below.

The portable edition cache files are being stored in the Application Data
directory, instead of inside it's own Cache directory.

C:\Documents and Settings\User\Application Data\WDCC\Cache\

OS: Windows XP Pro Service Pack 3
WDCC v1.8.3

I have a doubt, if it is possible to get the HD speed (RPM), if the memory is 
DDR1, DDR2, DDR3, if the HD is SATA or IDE chipset and Socket Motherboard ...


Thank You

I am using  XP and XE
The program dose not generate exe
1. when compiled it dose not return ANY dos error
to screen.
2. Compilation is NOT done although the path is correct
I thought to add " like
     if CreateProcess(nil, PChar('"'+lpCommandLine+'"'), @lpPipeAttributes,
but it did not help
the dos command dose not find the long name path i guess
But worse error do NOT return to screen.

I'm having a problem for a long time, this appeared an error with the following 
description "Overflow while Converting Variant of Type (OLESTR) into type 
(Integer)"
I'm using Delphi XE on Windows XP 32 ...

Thank you for your attention

When a firewall, such as ZoneAlarm blocks internet access, the portable edition 
will hang for a minute or two before displaying a notice that it could not 
connect to a server to check for updates.  After this, the main interface is 
seen.

OS: Windows XP Pro Service Pack 3
WDCC v1.8.3

What steps will reproduce the problem?
1. Open Wmi Delphi Code generator binary (as downloaded today)

What is the expected output? What do you see instead?
Left top button says Ejecute code; should be Execute code


What version of the product are you using? On what operating system?
1.1.2.140


Please provide any additional information below.
Nitpicking, I know, but the rest looks so good I thought I'd mention it.
Very impressive!

What steps will reproduce the problem?
1.Install Wmi-Delphi-code-Creator
2.Execute
3.

What is the expected output? What do you see instead?
throws error as "Generic Failure" several times and then program starts.
Also generated codes behaves like this.

What version of the product are you using? On what operating system?
W7 Ultimate x64 


Please provide any additional information below.

WmiClassIsSingleton is missing in uWmiDelphiCode
are there any thing missing in the source?

What steps will reproduce the problem?
1. Try to compile under Delphi 7 Personal or Delphi XE Starter

What is the expected output? What do you see instead?

Error : [Fatal Error] WDCC.dpr(70): File not found : 'Vcl.Themes.dcu'

What version of the product are you using? On what operating system?

Delphi 7 Personal
Delphi XE Starter
Windows 7 64 bits SP1

Please provide any additional information below.

There is no Vcl.Themes.pas under the untis folder

//-----------------------------------------------------------------------------------------------------
//     This code was generated by the Wmi Delphi Code Creator (WDCC) Version 1.9.9.350
//     http://code.google.com/p/wmi-delphi-code-creator/
//     Blog http://theroadtodelphi.wordpress.com/wmi-delphi-code-creator/
//     Author Rodrigo Ruz V. (RRUZ) Copyright (C) 2011-2015 
//----------------------------------------------------------------------------------------------------- 
//
//     LIABILITY DISCLAIMER
//     THIS GENERATED CODE IS DISTRIBUTED "AS IS". NO WARRANTY OF ANY KIND IS EXPRESSED OR IMPLIED.
//     YOU USE IT AT YOUR OWN RISK. THE AUTHOR NOT WILL BE LIABLE FOR DATA LOSS,
//     DAMAGES AND LOSS OF PROFITS OR ANY OTHER KIND OF LOSS WHILE USING OR MISUSING THIS CODE.
//
//----------------------------------------------------------------------------------------------------
program GetWMI_Info;

{$mode objfpc} {$H+}

uses
  SysUtils,
  ActiveX,
  ComObj,
  Variants;
                

				
// Serial Port Name

procedure  GetMSSerial_PortNameInfo;
const
  WbemUser            ='';
  WbemPassword        ='';
  WbemComputer        ='localhost';
  wbemFlagForwardOnly = $00000020;
var
  FSWbemLocator : OLEVariant;
  FWMIService   : OLEVariant;
  FWbemObjectSet: OLEVariant;
  FWbemObject   : Variant;
  oEnum         : IEnumvariant;
  sValue        : string;   
begin;
  FSWbemLocator := CreateOleObject('WbemScripting.SWbemLocator');
  FWMIService   := FSWbemLocator.ConnectServer(WbemComputer, 'root\WMI', WbemUser, WbemPassword);
  FWbemObjectSet:= FWMIService.ExecQuery('SELECT * FROM MSSerial_PortName','WQL',wbemFlagForwardOnly);
  oEnum         := IUnknown(FWbemObjectSet._NewEnum) as IEnumVariant;
  while oEnum.Next(1, FWbemObject, nil) = 0 do
  begin
    sValue:= FWbemObject.Properties_.Item('Active').Value;
    Writeln(Format('Active          %s',[sValue]));// Boolean
    sValue:= FWbemObject.Properties_.Item('InstanceName').Value;
    Writeln(Format('InstanceName    %s',[sValue]));// String
    sValue:= FWbemObject.Properties_.Item('PortName').Value;
    Writeln(Format('PortName        %s',[sValue]));// String
	    
    Writeln('');
    FWbemObject:=Unassigned;
  end;
end;


begin
 try
    GetMSSerial_PortNameInfo;
 except
    on E:EOleException do
        Writeln(Format('EOleException %s %x', [E.Message,E.ErrorCode]));      
	on E:Exception do
        Writeln(E.Classname, ':', E.Message);
 end;
 Writeln('Press Enter to exit');
 Readln;    
end.