WinSAT

[Razor]

Hello!

I am asking becouse there isnt no examples in delphi if there were i wouldnt even ask..


I am using win 7 so i decided to add WinSAT ability to my program so i found this example on MSDN.But its really confusing i c/c++
or c# dont really now.Could someone explain it to me what it does.

i installed winsat library via type import in delphi 2009.So i thought it was easy to do i decided to give it a try....

Delphi-Quellcode:

CInitiateWinSAT1.Create(SELF);
CInitiateWinSAT1.DefaultInterface.InitiateFormalAssessment({what goes in here delphi says a constant wich constant!},nil

)

Zitat:

C++

Code:

HRESULT InitiateFormalAssessment(
  [in, optional]  IWinSATInitiateEvents *pCallbacks,
  [in, optional]  HWND callerHwnd
);

Parameters
pCallbacks [in, optional]
An IWinSATInitiateEvents interface that you implement to receive notification when the assessment finishes or makes progress. Can be NULL if you do not want to receive notifications.

callerHwnd [in, optional]
The window handle of your client. The handle is used to center the WinSAT dialog boxes. If NULL, the dialog boxes are centered on the desktop.

[quote]

[Razor]

Some progress i also included the pass file for other to see if it works.WIN7/VISTA is a must to test this.
This hopfully will start the winsat routine.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  i:IWinSATInitiateEvents;
  k:_RemotableHandle;
  l:hresult;
  s:string;
begin
  CInitiateWinSAT1.Create(SELF);

  CInitiateWinSAT1.DefaultInterface.InitiateFormalAssessment( i,k) ;
  i.WinSATComplete(l,pchar(s));
end;

Good news Leute this works as it turns off Aero and writes XML to the system. :bounce1:

[edit=mkinzler]Delphi-Tag eingefügt Mfg, mkinzler[/edit]

[mkinzler]

Why turning off Aero?

[Razor]

Well you know when you start WinSAT or Perfomance Index crap it turns it off to analyze your system if its compatible:P
It stops at that line wich is comented why is that widestring > pchar or what?

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
i:IWinSATInitiateEvents;
k:_RemotableHandle;
v:integer;
s:widestring;
begin


CInitiateWinSAT1.Create(SELF);
CInitiateWinSAT1.DefaultInterface.InitiateFormalAssessment( i,k) ;
    i.WinSATComplete(v,pchar(s));   //<here it stops and why? WINSAT_STATUS_COMPLETED_SUCCESS 0x40033
  
    if v=$40033 then
    showmessage('no');

end;

[mkinzler]

Use String instead of WideString

[Razor]

Yes but it still holds.It only stops at the line when i try to check for status did it pass or fail.

http://img.techpowerup.org/091005/Capture020901.jpg

[mkinzler]

Delphi-Quellcode:

CInitiateWinSAT1 := CoCInitiateWinSAT.Create;

[Razor]

Gives the same result as mine.But it works it functions.But the checking procedure fails.If i want to check for the STATUS.

[Razor]

Sorry for double post but i think i found the couse.I need only this and then i got it :)
Its bascily a function for tracing the progress and after the progress ends.

Delphi-Quellcode:

// *********************************************************************//
// Interface: IWinSATInitiateEvents
// Flags:     (0)
// GUID:      {262A1918-BA0D-41D5-92C2-FAB4633EE74F}
// *********************************************************************//
  IWinSATInitiateEvents = interface(IUnknown)
    ['{262A1918-BA0D-41D5-92C2-FAB4633EE74F}']
    function WinSATComplete(hresult: HResult; strDescription: PWideChar): HResult; stdcall;
    function WinSATUpdate(uCurrentTick: SYSUINT; uTickTotal: SYSUINT; strCurrentState: PWideChar): HResult; stdcall;
  end;

Delphi-Quellcode:

var
i:IWinSATInitiateEvents;
k:_RemotableHandle;
q:CoCInitiateWinSAT ;
v:integer;
s:string;
implementation

{$R *.dfm}

 procedure TForm1.FormCreate(Sender: TObject);
begin
CInitiateWinSAT1.Create(self);
CInitiateWinSAT1.DefaultInterface.InitiateFormalAssessment( i,k) ;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
var
itotal,icurrent:integer;
sa:string;

begin

i.WinSATUpdate(icurrent,itotal,pchar(sa))  ; //CODE HALTS HERE !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
if  itotal>0 then
progressbar1.Position:=100*icurrent div itotal;

end;
end;

[mkinzler]

@Razor: Remember, you can edit a post for 24 hours!