CommFort

Уууу..., даже не знаю тогда, я думал, что Builder C++, ну тогда верни все назад , что я наподсказывал. Возможно
вместо этого напиши вот это это мои догадки, я в этой среде никогда не работал.

да хоть вот так: Не в этом дело. Это прототип, на названия переменных тут пофиг.

Ну поверь, я видел случаи, что компиляторы и на такое выдавали ошибку , правда старые .

Ну может быть наоборот я заблуждаюсь. Но в данном случае компилятор позволяет так делать...
А в билдере значит данный код бы работал?

Могу дать только один совет, поискать на форумах, как правильно работать с DLL в MinGW 3.4.5.

Так а почему тогда обращение к функциям то происходит нормально?
Опции\Описание\Инициализация. Функции ведь отрабатывают... MSBBox-ы вылетают.
ДЛЛ-ки не писал никогда... Может чего то и недопонимаю. Почему это работает а это нет...

Joneg писал(а):А в билдере значит данный код бы работал?

Что я исправил да.

Добавил преписку: __stdcall
Добавил ключи к линковцищу: -Wl,--add-stdcall-alias
Имена функций стали выглядеть так:

PluginInit
PluginInit@16
PluginProcess
PluginProcess@12
PluginShowAbout
PluginShowAbout@0
PluginShowOptions
PluginShowOptions@0
PluginTerminate
PluginTerminate@0

Сервер сказал плагин работает
Можно идти дальше...

Подскажите как в плагине можно запустить форму.Пишу на делфи.
Пишу код: Незапускается ругается на Form1

По кусочкам .

Код:
.................
interface
uses Windows, Dialogs, Forms;
................
var
dwPluginID : DWORD;
CommFortProcess : TtypeClCommFortProcess;
CommFortGetData : TtypeClGetData;
Form : TForm;
................
function PluginInit(dwThisPluginID : DWORD; plInfo : PPluginInfo; func1 : TtypeClCommFortProcess; func2 : TtypeClGetData) : BYTE;
begin
dwPluginID := dwThisPluginID;

plInfo^.strPluginName := 'Null';
plInfo^.strPluginDescription := 'Test plugin for CommFort client 4.20';
plInfo^.strPluginVersion := '4.20';

CommFortProcess := func1;
CommFortGetData := func2;

Form := TForm.Create(nil);

Form.Height := 100;
Form.Width := 100;

Result := 0;
end;
...........................
procedure PluginShowOptions;
begin
Form.Show;
end;
..........................
function PluginTerminate : BYTE;
begin
Form.Free;

Result := 0;
end;

Спосибо,теперь без ошибок

ИМХО лучше все же так: 1. форма не будет создаваться при каждом запуске плагина (и соответственно висеть в памяти), а только перед вызовом настроек, и сразу после вызова уничтожатся.
2. форму лучше показывать модально т.е. поверх всех окон, и при этом блокируются все окна приложения.
При это не забудьте кнопкам Ok и Cancel присвоить соответствующий ModalResult в инспекторе свойств.

Как можно закрепить эту форму в канале как у плагина"Доски рисования"?
С формой вроде всё разобрался.

Для этого я использовал WinApi функции (точнее обертки этих функций реализованные в Delphi);
Чтоб найти нам нужное окно в чате используем FindWindow для главного окна, и FindWindowEx для дочерних окон.
Структуру окон и то что нам надо искать можно посмотреть любым сканером окон (Мне например нравится InqSoft Window Scanner)
Потом нашей форме(Или любому другому контролу у которого Parent обязательно должно быть nil) в свойство ParentWindow присваиваем Хендл найденного окна;
Этого достаточно чтобы "прилипнуть" к нужному нам объекту.

Но на этом проблемы не заканчиваются например нам надо отслеживать когда канал закрывается, изменяет размер, прячется...
Далеко не все Api сообщения будут доходить до нашего окна. Поэтому я использовал хук для перехвата WinАpi сообщений.

Устанавливается нужный нам хук так: Где WndHook функция вида: Функция CallNextHookEx - должна быть обязательно, она передает сообщение следующему хуку (если он есть), так как неизвестно сколько хуков наставленно.
Например переключатель раскладки клавиатуры в Windows использует хук на нажатия клавиш чтобы перехватывать нужные ему сочетания клавиш.

При дестрое обязательно снимаем хук - UnhookWindowsHookEx(HookHandle)

Ну и напоследок несколько функций которые могут пригодится для работы с чужими окнами:
Чтобы определить размер окна - GetWindowRect(ChannelWindow, Rect)
Чтобы передвинуть окно - MoveWindow(ChannelWindow, Left, Top, Width, Height, True)
Чтобы определить отображается ли окно - IsWindowVisible(ChannelWindow)

Подскажите пожалуйсто как сделать чтобы при запуске сервера плагин автоматичски запускался? Не заходить же каждый раз и не включать его?!