Плагины на C++ для программы на delphi. Это возможно?

[GunSmoker]

Попытка выложить превьюху статьи №2: http://dl.dropbox.com/u/201788/Article/Public.zip

Кому охота, можно пока вникать в уже написанное, пока я дописываю.

[Человек_Борща]

хм,

Например, вот три примера эквивалентных объявлений (т.е. они написаны по-разному, но представляют собой одно и то же):
procedure DoSomething; safecall;
function DoSomething: HRESULT; stdcall;

т.е. я объявляю procedure Test; safecall; а delphi переведёт это как function Test:HRESULT; stdcall; ?

Правило номер пять - все строки должны иметь тип WideString.

Я не сразу заметил эту строку =) Мб как-то выделить..
И дописать, что нужно подключить модуль менеджера памяти(при передаче строк).

А что делать, если плугинизация строится.... эмм, на delphi 5 или 7? Там есть WideString?

[Пепел Феникса]

Там есть WideString?

в шестерке есть, думаю и там есть.

И дописать, что нужно подключить модуль менеджера памяти(при передаче строк).

WideString<>string(никогда)

т.е. я объявляю procedure Test; safecall; а delphi переведёт это как function Test:HRESULT; stdcall; ?

да.
читать

[Человек_Борща]

GunSmoker, Вдумчиво изучил пре-версию статьи =) С нетерпением ожидаю продолжения.
При компиляции примера из статьи(PluginAPI_1). при помощи xe2, выпадает
"Точка входа в процедуру GetErrorMode не найдена в библиотеке kernel32.dll"

Сабж происходит из конструктора Гл. формы:

procedure TMainForm.FormCreate(Sender: TObject);
begin
  SetErrorMode(GetErrorMode or SEM_NOOPENFILEERRORBOX or
    SEM_FAILCRITICALERRORS);

а Delphi 7 вообще лесом посылает т.к. понятия не имеет об этом GetErrorMode.

Delphi 7 не знает и об:

procedure TPluginManager.LoadPlugins(const AFolder, AFileExt: String);

var
  Path: String;
  SR: TSearchRec;
  Failures: TStringList;
  FailedPlugins: TStringList;
begin
  Path := IncludeTrailingPathDelimiter(AFolder);

  Failures := TStringList.Create;
  FailedPlugins := TStringList.Create;
  try
    if FindFirst(Path + '*.*', faNormal, SR) = 0 then

[Utkin]

Попробуйте вместо faNormal использовать $00000080; Если пройдет, то скорее всего какой-то юнит не подключен.

GetErrorMode

Вроде винАпишная, также как и SetErrorMode. Может там скобки расставить?

[GunSmoker]

я объявляю procedure Test; safecall; а delphi переведёт это как function Test:HRESULT; stdcall; ?

Не совсем.

Эти два куска кода генерируют один и тот же машинный код (в точке вызова).

Но safecall также автоматически обрабатывает ошибки, хотя это уже не имеет отношения к коду соглашения вызова.

Поэтому эти две конструкции эквивалентны, если ты говоришь о соглашении вызова (т.е. если функция объявлена по первому варианту, её можно вызвать, объявив по второму, и наоборот). Но эти две конструкции не эквивалентны, если ты говоришь про обработку ошибок - у них разное поведение: safecall обрабатывает ошибки самостоятельно, stdcall - вручную.

И дописать, что нужно подключить модуль менеджера памяти(при передаче строк).

Он не нужен - в этом весь смысл. В других языках нет никаких дельфийских модулей памяти.

эмм, на delphi 5 или 7? Там есть WideString?

WideString - это системный тип BSTR, часть COM. Поддержка COM в современном виде появилась в Delphi 3. Т.е. WideString как строка есть в D3+. Но даже в D2 вполне можно использовать системные функции по работе с BSTR - никто это не запрещает.

faNormal в D7 нет, но туда можно спокойно 0 передавать, т.к. faNormal и так по умолчанию включён. Я его явно написал, т.к. это с ним нагляднее.

С GetErrorMode подправлю. См. http://www.transl-gunsmoker.ru/2009/...post_7756.html

[GunSmoker]

P.S. Update 3 на XE2 стоит? Это к вопросу кривого объявления GetErrorMode.

[GunSmoker]

Плюх: http://www.gunsmoker.ru/2011/12/delphi.html

Вторая часть - где-нибудь в районе следующих выходных.

[Человек_Борща]

Update 3 ещё не скачивал т.к. небыло нужды.
GunSmoker, благодарен за труд. Жду продолжения =)