VPF::Delphi 2007 - не смог установить компоненты

gbyltw2

Дата 24.7.2009, 06:16 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 4
Регистрация: 13.7.2009

Репутация: нет
Всего: нет

помогите новичку плз, уже написана клиент-серверная платформа с использованием виндовых сокетов(WinSock), хотел прикрутить к клиентской службе WMI, не смог нормально установить Active DS Type Library, Microsoft WMI Scripting library в 2007 Delphi (установлен RAD Studio)
пробовал через Component - Import component (видны оба, устанавливаются, но использовать не могу, нигде не появляется SWbemLocator, который очень хочется использовать; прописывать в uses WbemScripting_TLB бесполезно - не дает использовать), также создавал package, добавлял туда один из компонент, и пытался инсталить (надо же было как-то еще попробовать)- результат 0

CodeMonkey

Дата 24.7.2009, 09:58 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1839
Регистрация: 24.6.2008
Где: Россия, Тверь

Репутация: 29
Всего: 89

По-моему, нужные файлики есть в примерах к этой статье.

--------------------

Опытный программист на C++ легко решает любые не существующие в Паскале проблемы.

gbyltw2

Дата 24.7.2009, 12:38 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 4
Регистрация: 13.7.2009

Репутация: нет
Всего: нет

файлики есть...в списке они доступны (ибо win XP в себе уже все это содержит...) они не устанавливаются - может я что-то не так делаю
проверили на 2м компьютере - винда аналогичная XP SP3, CodeGear RAD studio 2007 - повторился облом - устанавливал другой человек

CodeMonkey

Дата 24.7.2009, 13:13 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1839
Регистрация: 24.6.2008
Где: Россия, Тверь

Репутация: 29
Всего: 89

Ну, во-первых, их же вовсе не обязательно устанавливать - просто создавайте объекты/компоненты в run-time.
Во-вторых, что конкретно значит "не устанавливается"? Ошибка вылезает или что? Тут же не телепаты сидят.

--------------------

Опытный программист на C++ легко решает любые не существующие в Паскале проблемы.

gbyltw2

Дата 29.7.2009, 07:10 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 4
Регистрация: 13.7.2009

Репутация: нет
Всего: нет

установил компоненты все таки с сотого раза - так и не понял, чего им не хватало сначала, пробую писать на wmi и сразу проблема

Код


unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, WbemScripting_TLB, ActiveX, OleServer, StdCtrls;

type
  TForm1 = class(TForm)
    ListBox1: TListBox;
    Button1: TButton;
    Label1: TLabel;
    SWbemLocator1: TSWbemLocator;
    procedure Button1Click(Sender: TObject);
  private
    procedure GetProp(Win32ClassName: string; ListNum: integer);
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}


procedure TForm1.Button1Click(Sender: TObject);
begin
  GetProp('Win32_TemperatureProbe', 2);
end;


procedure TForm1.GetProp(Win32ClassName: string; ListNum: integer);
var
  Service:             ISWbemServices;
  ObjectSet:           ISWbemObjectSet;
  SObject:             ISWbemObject;
  PropSet:             ISWbemPropertySet;
  SProp:               ISWbemProperty;
  PropEnum, Enum:      IEnumVariant;
  TempObj:             OleVariant;
  Value:               Cardinal;
begin
  Service:= SWbemLocator1.ConnectServer('.', 'root\CIMV2', '', '', '',
  '', 0, nil);
  SObject:= Service.Get(Win32ClassName, wbemFlagUseAmendedQualifiers, nil);
  ObjectSet:= SObject.Instances_(0, nil);
  Enum:= (ObjectSet._NewEnum) as IEnumVariant;
  if (Enum.Next(1, TempObj, Value) = S_FALSE)  then
  begin
    MessageBox(0, PChar('Отсутствует провайдер или требуемое устройство.'),
    PChar(Form1.Caption), MB_OK);
    exit;
  end;

взято из примера - что по всему инету

Enum.Next(1, TempObj, Value) = S_FALSE - всегда....всегда выдает S_FALSE - в чем причина я так и не могу понять (дальше приводить код не стал, т к запарывается уже на этом - проверено)

CodeMonkey

Дата 29.7.2009, 08:26 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1839
Регистрация: 24.6.2008
Где: Россия, Тверь

Репутация: 29
Всего: 89

Как насчёт на мамке нет температурных датчиков, совместимых с WMI?

Добавлено через 1 минуту и 35 секунд
Посмотрите сюда.

По аналогии напишите vbs скрипт для своего случая и запустите. Если выдаст пустоту - увы и ах: WMI вам не в помощь.

Добавлено через 2 минуты и 21 секунду
P.S. Текст примера по ссылке просто копируется в текстовый файл с расширением .vbs и дабл клик по нему.

--------------------

Опытный программист на C++ легко решает любые не существующие в Паскале проблемы.

gbyltw2

Дата 30.7.2009, 10:59 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 4
Регистрация: 13.7.2009

Репутация: нет
Всего: нет

посмотрел, попробовал, не запускается на обоих доступных компах - и с чего бы датчикам совместимость с виндой, скорее WMI не совместима с кучей датчиков
хотя тот же еверест - дает информацию о темперетуре проца, материнки, жесткого
что кроме WMI можно попробовать?

Это сообщение отредактировал(а) gbyltw2 - 30.7.2009, 11:02

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Для новичков \| Следующая тема »