Использование кода Delphi в C++Builder

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

В C++Builder есть встроенный компилятор паскаля. Компилятор паскаля позволяет вам использовать код Delphi в C++Builder'е. Он может также помочь в конвертации кода из Delphi в C++Builder. Компилятор паскаля доступен как из IDE C++Builder, так и из командной строки.

Непосредственное использование модулей Delphi

Часто вы будет обнаруживать проекты Delphi, содержащие модуль, который бы вы хотели использовать в своих приложениях. Простейшим путем использования модуля Delphi является его добавление в проект. Ниже приведены шаги, необходимые для добавления модуля Delphi в проект C++Builder'а:

  • Создайте в C++Builder'е свой проект.
  • Выберите "Add to Project" в панели C ++ Builder 'а или в меню.
  • Выберите "Pascal unit" в типах файлов выпадающего списка диалогового окна открытия файлов.
  • Выберите модуль Delphi для добавления в свой проект и нажмите OK.
  • Перестройте свое приложение перед написанием кода, ссылающегося на модуль Delphi. Перестройка проекта создаст из модуля заголовок, который вы сможете включить в свое приложение.
  • Выберите пункт "File | Include Unit Hdr…" в главном меню C++Builder 'а и добавьте форму Delphi в ваше приложение.
  • Напишите код, который ссылается на модуль Delphi.

Когда вы перестраиваете приложение, C++Builder использует встроенный компилятор паскаля для создания obj -файла, который приложение сможет использовать. Компилятор паскаля также создает заголовочный файл из исходного текста. Использование этого способа подключения модулей Delphi совсем несложно.

Преобразование кода

Как вы можете заметить, добавление модуля Delphi в свой проект - это достаточно просто. Тем не менее, вы можете не захотеть использовать модуль Delphi таким образом. У вас могут, например, потребовать, чтобы весь ваш код был на C++. В этом случае вы будете должны перевести код паскаля в C++.

Для меня не существует практического способа объяснить каждую деталь преобразования кода Delphi в C++. Все, что я могу, тем не менее - это показать, как с легкостью преобразовать сложные объявления паскаля в С++.

Давайте предположим, например, что у вас есть модуль Delphi, (очевидно, несколько упрощенный для данного примера), который выглядит следующим образом:

unit TestUnit; 
interface
type
    MyEnum = (meOne, meTwo, meThree);
    function DoSomething(Value : MyEnum : string; var I : Integer; Buffer : array [0..255] of Char;
implementation 
    function DoSomething(Value : MyEnum) : string;
    begin 
        case Value of 
            meOne : Result := 'One';
            meTwo : Result := 'Two';
            meThree : Result := 'Three';
        end;
    end;
end.

Даже без знания паскаля вы, вероятно, можете справиться с конвертацией этого модуля вручную. Тем не менее, вы можете получить преимущество, используя компилятор паскаля C++Builder'а для создания заголовочного файла для этого модуля. Вы могли бы добавить этот модуль в приложение C++Builder'а и его откомпилировать, но вы можете также использовать компилятор из командной строки. Вот последовательность действий:

Откройте окно командной строки и перейдите к папке, содержащей модуль Delphi.

В командной строке наберите: "dcc 32 - jphn TestUnit.pas" (без кавычек).

DCC32.EXE - это компилятор паскаля. Ключ -jphn сообщает компилятору о необходимости создать заголовочный и объектный файлы, совместимые с C++Builder. По завершению исполнения данной команды будет откомпилирован исходный файл на паскале и будут созданы заголовочный и объектный файлы (объектный файл в данном случае не является значимым, поскольку вы все равно не собираетесь его использовать). Заголовок, сгенерированный для тестового модуля, будет иметь следующий вид (строки комментариев удалены для ясности):

#ifndef TestUnitHPP 
#define TestUnitHPP

#pragma delphiheader begin
#pragma option push -w-
#pragma option push -Vx

#include <SysInit.hpp> // Pascal unit
#include <System.hpp> // Pascal unit

namespace Testunit
{
    #pragma option push -b-
    enum MyEnum
    {
        meOne,
        meTwo,
        meThree
    };
    #pragma option pop
   
    extern PACKAGE int I;
    extern PACKAGE char Buffer[256];
    extern PACKAGE AnsiString
   
    __fastcall DoSomething(MyEnum Value);
}

/* namespace Testunit */
#if !defined(NO_IMPLICIT_NAMESPACE_USE)
using namespace Testunit;
#endif
#pragma option pop // -w-
#pragma option pop // -Vx
#pragma delphiheader end.
#endif // TestUnit

Текст немного замусорен различными опциями компилятора, но вот существенная часть:

enum MyEnum {meOne, meTwo, meThree}; 
int I;
char Buffer[256];
AnsiString __fastcall DoSomething(MyEnum Value);

Заметьте, как для вас удобно преобразованы объявления. Вы все еще должны преобразовать настоящий код в модуле, но, по крайней мере, объявления преобразовали за вас.

Вот другой пример, только немного сложнее:

const  
    MaxSize = MaxLongInt;
    type TDoubleArray = array[0..(MaxSize div SizeOf(Double))-1] of Double;
    PDoubleArray = ^TDoubleArray;
    TIntArray = array[0..(MaxSize div SizeOf(Integer))-1] of Integer;
    PIntArray = ^TIntArray;

Сгенерированные объявления выглядят следующим образом:

typedef double TDoubleArray[268435455]; 
typedef double *PDoubleArray;
typedef int TIntArray[536870911];
typedef
int *PIntArray;

Предыдущие примеры довольно просты. Некоторые объявления паскаля, однако, могут заставить вас почесать голову в удивлении, как преобразовать их в С++. Пример:

TMyCallback = function(const S : string; Size : Integer) : Integer;  

Это объявление функции обратного вызова. Когда вы откомпилируете этот модуль компилятором паскаля, вы получите заголовок, который содержит следующее объявление:

typedef int __fastcall (*TMyCallback) (const AnsiString S, int Size);  

Возможно, вы с легкостью поняли, как преобразовать код паскаля в это объявление, но это маловероятно, что вы эксперт и в паскале, и в С++. Дело, конечно, в том, что возможность генерации заголовка компилятором паскаля делает простым преобразование любого объявления в паскале в С++.

Я могу предложить даже более сложные примеры, но, я думаю, вы уловили суть дела.

Использование компонентов Delphi

Есть много условно-бесплатных и бесплатных компонентов, доступных для Delphi. В большинстве случаев, авторы компонентов не поставляют их эквивалент в C++Builder. Компоненты, поставляемые с исходным кодом на Delphi, обычно могут быть использованы с небольшой модификацией или вовсе без нее. Для использования компонента Delphi предпримите следующие шаги:

  • Создайте новый пакет для компонента. Обычно вы будете создавать пакет, который будет являться пакетом как времени выполнения, так и времени разработки.
  • Добавьте исходный код компонента в пакет.
  • Перестройте пакет и установите его.

Предполагаю, что этот процесс прост, но многие программисты на C++Builder'е не представляют себе, что компоненты Delphi могут быть использованы подобным образом.

Заключение

Через интернет доступно большое количество кода Delphi. Возможность использовать этот код в ваших приложениях - это, конечно, большое достоинство. Знание, что вы можете использовать этот код и знание, как его использовать – ключ к данному коду.

Автор: kent reisdorph
Оригинал находится по адресу: http://www.bridgespublishing.com/articles/issues/0108/using_delphi_code_in_c++builder.htm
Автор перевода: Т. Сорока
Источник: http://bcbdev.ru/

Читайте также:
  • Оптимизация приложений С++Builder в архитектуре клиент/сервер
    Однако сам по себе факт переноса имеющейся базы данных из настольной СУБД на какой-либо сервер баз данных с соответствующей корректировкой настроек BDE (или других средств доступа к данным) отнюдь не гарантирует повышения производительности информационной системы в целом. Представьте себе, напри...
  • Создание системных ловушек Windows на Borland C++ Builder
    Для начала определим, что именно мы хотим сделать. Цель: написать программу, которая будет вызывать хранитель экрана при перемещении курсора мыши в правый верхний угол и выдавать звуковой сигнал через встроенный динамик при переключении языка с клавиатуры. Предполагается, что такая программа должна ...
  • Borland C++ Builder FAQ
    Получение текущей даты и времени (VCL вариант)// для получения текущей даты и времени воспользуйтесь функцией// Now() из модуля Sysutils.hpp . Отобразить полученные дату и// время можно следующим образом (Button1 - кнопка на форме):void __fastcall TForm1::Button1Click(TObject *Sender){Form1->...
  • Borland C++ Builder VCL FAQ
    Какой способ очистки TCanvas самый быстрый? АПИ функция PatBlt.Пример:PatBlt(PaintBox1->Canvas->Handle, // Handle Canvas'а       0,                      &...