0xFF в продолжении вчерашнего про Delphi, насколько удобнее
(«Телесистемы»: Конференция «Микроконтроллеры и их применение»)
миниатюрный аудио-видеорекордер mAVR

Отправлено lamerok 24 августа 2004 г. 09:08

Вот блин написал на делфях....


   LstBxOPCItems.Items.Clear;
   count:=0;
   try
      Group := ServerIf as IOPCBrowseServerAddressSpace;  //as Вместо вызова QueryInterface
   // проверка поддерживает ли сервер такой интерфейс, если да.. то Group- идентификатор этого интерфейса
   except
      Group:=nil;
   end;
   if Group = nil then exit;
   //Читаем теги в EnumString
   Res := Group.BrowseOPCItemIDs(OPC_FLAT,'',VT_EMPTY,0,EnumString);
   if (Failed(Res)) then exit;
   while(   EnumString.Next(1,pszName, @count) = S_OK) do  
   begin
             LstBxOPCItems.Items.Add(string(pszName));
   end;
ТОже самое на билдере...
  OLECHECK(m_ptrServer->QueryInterface(IID_IOPCBrowseServerAddressSpace,
                                        reinterpret_cast(&m_ptrBrowse)));
	USES_CONVERSION;
        ListBox2->Items->Clear();
   OLECHECK(m_ptrBrowse->BrowseOPCItemIDs(OPC_FLAT, L""/*NULL*/, VT_EMPTY, 0, &pEnumString));
	LPOLESTR pszName = NULL;
        ULONG count = 0;
        while((hr = pEnumString->Next(1, &pszName, &count)) == S_OK)
        {
            ListBox2->Items->Add(OLE2T(pszName));
            ::CoTaskMemFree(pszName);
        }
        pEnumString->Release();
<\pre>
Это скока всего нажо знать, чтобы на билдере напистаь то...
откуда блин я знал, что макрос ОLE2T преобразует pszName  в чар?
или чтобы преобразовать указатель интерфейса к типу LPVOID нужно использовать reinterpret_cast 
Причем в Билдере иногда ошибка вылетает почему-то при pEnumString->Release(); а без этого память отбирается...

 

 
 

 

 
 Составить ответ
  ||| 
 Конференция
  ||| 
 Архив
 
 

 

 
Ответы

 
 

 
  
 

 

 
 Перейти к списку ответов
  ||| 
 Конференция
  ||| 
 Архив
  ||| 
 Главная страница
  ||| 
 Содержание
  ||| 
 Без кадра
 
 
 
 
E-mail: 
 info@telesys.ru