reggga
Сообщений: 1
Оценки: 0
Присоединился: 2012-02-13 17:20:12.570000
|
Здравствуйте! Помогите мне, пожалуйста, разобраться в моей проблеме. Я создаю клиент-серверное приложение на основе COM объектов. Оба приложения запускаются, но когда я нажимаю кнопку соединения на клиенте, выскакивает ошибка "Интерфейс не поддерживается". До этого выскакивало что-то вроде "Ошибка реестра OLE". Я отключила контроль учетных записей, она пропала. Не знаю, может не надо было отключать. Подскажите, пожалуйста, если кто-то в этом разбирается.
Код для клиента:
#include <vcl.h>
#pragma hdrstop
#include "Unit1.h"
#include <comobj.hpp>
#include <windows.h>
#define MAX_COMPUTERNAME_LENGTH 30
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
double* res;
double a;
double b;
Variant com_obj1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::N1Click(TObject *Sender)
{
char buffer[MAX_COMPUTERNAME_LENGTH+1]; //возвращает NetBios имя компьютера
DWORD size;
size=sizeof(buffer);
GetComputerName(buffer,&size);
com_obj1 = CreateOleObject("Project2.com_obj1");
com_obj1.OleProcedure("Login",buffer);
res = new double;
}
Код для сервера:
// COM_OBJ1IMPL : Implementation of Tcom_obj1Impl (CoClass: com_obj1, Interface: Icom_obj1)
#include <vcl.h>
#pragma hdrstop
#include "COM_OBJ1IMPL.H"
#include "Unit1.h"
TDateTime ttime;
/////////////////////////////////////////////////////////////////////////////
// Tcom_obj1Impl
STDMETHODIMP Tcom_obj1Impl::Login(BSTR name)
{
ttime= ttime.CurrentDateTime();
Form1->Memo1->Lines->Add(TimeToStr(ttime)+": Клиент "+name+" подключен");
return S_OK;
}
|
Ошибка при создании COM сервера - 
