VPF::UDF Windows Server 2003 - Форум программистов

rith2

Дата 27.4.2011, 12:44 (ссылка)

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

Загрузка ...

Шустрый

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

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

Привет!

фаер 2.1
делфи 7.0

На делфи написал udf выводящую сообщение пользователю

Код


unit Unit1;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var
  App: TApplication;
begin
  App:=TApplication.Create(nil);
  Windows.MessageBox(App.Handle, 'fdfdfdf','Ошибка', MB_TASKMODAL or MB_TOPMOST);
end;
end.

Скомпилировано из под Windows xp, из фаера все вызывается и работает

Регистрирую dll на Windows server 2003 (х32) - при вызове dll фаер намертво повисает. В чем может быть причина??

Создал просто приложение вызывающее эту функцию - компилирую на ХР, из под сервера также без проблем работает.

smile

Это сообщение отредактировал(а) rith2 - 27.4.2011, 12:46

tishaishii

Дата 11.6.2011, 21:41 (ссылка)

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

Загрузка ...

Создатель

Профиль
Группа: Завсегдатай
Сообщений: 1262
Регистрация: 14.2.2006
Где: Москва

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

Проблему не знаю и знать не хочу. smile

Попробуй поместить используемые функции в специальную dll и вызывать их из exe и firebird.

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