[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
  • Страница 1 из 1
  • 1
Архив - только для чтения
Модератор форума: hx  
Форум » Смежные проекты » hx Software » Плагины для mobitrans (Как создать свой)
Плагины для mobitrans
hxДата: Понедельник, 15.12.2008, 16:22 | Сообщение # 1
UCTeam Pro Coder
Сообщений: 482
Репутация: 34
Замечания: 0%
Статус: Вне игры
Mobi Trans with plugins

Хотите создать свой плагин?
Это реально!
Нужно:
1). Комп
2). Delphi

I шаг.
1). Запускаем Delphi;
2). Жмём File>New>Other... и там на вкладке New выбираем DLL Wizard;
3). Загружаем следующий код:

Code

library hmb;

uses
     SysUtils,
     Classes,
     DataInput in '..\utf8\DataInput.pas';

{$R *.res}

var
     list: TStringList;

// Открыть файл, попытаться прочитать строки, вернуть количество строк
// 0 - если нет строк или не удалось открыть
function Open(filename: PChar): Integer; stdcall; export;

begin
     list := TStringList.Create;
     try

       list.LoadFromFile(filename);

       Result:=list.Count;
     except
       Result := -1;
     end;
end;

// Сохраняем файл под новым именем
function SaveAs(s: PChar): Boolean; stdcall; export;

begin
     try
     list.SaveToFile(s);
     Result := true;
     except
       Result := false;
     end;
end;

// освобождаем занятую память
procedure Free(); stdcall; export;
begin
     list.Free;
end;

// Получить строку текста
function Get(n: integer): PChar; stdcall; export;
var
     s: String;
begin
     s:='';
     if (list <> nil) and (n>=0) and (n<list.Count) then
     begin
       s := list[n];
     end;
     Result := PChar(s);
end;

// Изменить строку в тексте
procedure Change(n: Integer; str: PChar); stdcall; export;
begin
     if (list <> nil) and (n>=0) and (n<list.Count) then
     begin
       list[n] := str;
     end;
end;

// О программе: автор и т.д.
function About(): Pchar; stdcall; export;
begin
     Result := 'hak 48';
end;

exports
     Open,
     SaveAs,
     Get,
     Change,
     Free,
     About;

begin
end.

4). Редактируем процседуры (по комментам думаю всё ясно)
5). Сохраняем под именем , написанным в первой строке (здесь - hmb)
6). Жмём Project>Build All Projectsbили Project>Build hmb.dll
7). Находим в папке с проектом dll, который вставляем mobi-transу в папку plugins
8). Запускаем MobiTrans и тестим

P.S.: в примере написан примерный код плагина Text.dll

 
Форум » Смежные проекты » hx Software » Плагины для mobitrans (Как создать свой)
  • Страница 1 из 1
  • 1
Поиск:

Приветствуем, Гость


Гость, предлагаем тебе авторизироваться:



Меню


Статистика



© Dinedi.RU, 2007-2019 || Хостинг от uCoz