VPF::DLL vs TICQlib - Форум программистов

maxvodo

Дата 26.11.2008, 00:15 (ссылка)

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

Загрузка ...

Новичок

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

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

Проблема следующая.
Создаем главное приложение

Код


...
begin
// поиск всех плагинов
  mask:=pathfodll+'*.dll';
  found:=FindFirst(mask,faAnyFile,SF);
  while found=0 do
    begin
    if SF.Name<>debug_plugin then
    begin
    DLLHandle:=LoadLibrary(PChar(pathfodll+SF.Name));
      @reg:=GetProcAddress(DLLHandle,'Register');
      if Assigned(reg) then
        begin
        currdll:=reg();
        currdll._Interface:=PForm(self_link);
        currdll._App:=_Application;
        currdll.DoCreate();
        if Assigned(currdll) then
          begin
          ListOfCommand.Add(currdll.commandname);
          ListDLL.AddObject(inttostr(DLLHandle),Pointer(currdll));
          end;
        end;
    end;
    Found:=FindNext(SF);
    end;
  FindClose(SF.FindHandle);
end;
...

И создадим DLL (в ней форма с TICQlib)

Код


...
type
  TForm1 = class(TForm)
    client: TICQClient;
    bt_connect: TButton;
    procedure bt_connectClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.bt_connectClick(Sender: TObject);
begin
  client.Password:='***';
  client.UIN:=0;
  client.Login();
end;
...
//ну и естественно 2 export - reg() and unreg()
// Пусть будет класс, который создается при reg()
// содержит поля - _Interface - указатель на гл.форму _App - указатель на Application гл.формы

И в коде DLL функция класса Work .DoCreate(); делает что-то подобное

Код


function Work.DoCreate();
begin
  form1_unit.SetApplication(_App);
  form1_unit.form1:=TForm1.Create(_App);
end;
//освобождается форма сама, при закрытии главной программы

Все это дело скомпилим. Окей.
Запустим. Найдет она dll-ку. прикрутит к главной программе. откроется форма из dll
тыкаем на кнопочку bt_connect (далее я смотрел соединение через OutposFirewall ) - появляется соединение длящееся 10-15 секунд и передавающее 10 байт.

P.S. Сам Outpost выключен. Как побороть?

maxvodo

Дата 15.12.2008, 00:14 (ссылка)

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

Загрузка ...

Новичок

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

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

может в потоках дело... может Application нужно полностью переопределять...
даже идей нет?

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