Как можно вставить код C++ в Delphi 7

[Владислав]

Здраствуйте!
Появилась необходимость вставлять С++ в Delphi 7, как это реалезуется?
Если не сложно помогите перевести модуль C++ на Pascal:
вот ссылка модуля Модуль
Если кто нить работал сервером mail agent'а, помогите с инфой.
Спасибо.

[mrandrey]

Я тебе посоветую решить єто через DLL. Создаешь в С++ DLL, а потом используешь её в програме Delphi.

[JTG]

Можно (попробовать) перегнать с-шные coff (*.obj) в борландовский obj и линковать в делфи

{$L c_obj.obj}
procedure proceDura; stdcall; external;
...

1 - http://www.wasm.ru/forum/files/52809227__COFF2OMF.zip
2 - http://www.anticracking.sk/EliCZ/export/OMF2D.zip
(сначала первую, а то ,что она выдаст, скормить второй)

--

Вот кусок из мануала

3) If Object.obj is in COFF, convert it to OMF.

COFF2OMF Object.obj

(COFF2OMF is a utility that converts COFF file to OMF file. This utility is shipped
with the Digital Mars C/C++ package (www.digitalmars.com). Do not confuse it with tool
with the same name that is present in Borland C++ package and that serves for converting
import libraries.)

4) Convert OMF to widely acceptable OMF.

OMF2D Object.obj /OLNames.opt /OENames.opt >Object.dh

(It is recommended to use DFix.bat. Set the right paths in this file.)

5) Add files to Delphi project:
{$I Object.dh}
{$L Object.obj}

[Владислав]

Попробую...

[GunSmoker]

Ребят, вы чего? Какие DLL, какой obj? Это .h заголовочники для бинарных структур, отправляемых по сети.

Появилась необходимость вставлять С++ в Delphi 7, как это реалезуется?

Как в мерседес вставить запчасти от тойоты? Никак. Надо искать аналоги.

Так же и здесь. Берёшь твой proto.h, читаешь:

#ifndef MRIM_PROTO_H
#define MRIM_PROTO_H

#include <sys/types.h>

и пишешь:

unit proto;

{$A+}
{$Z4}

interface

uses
  Windows, Types;

implementation

end.

читаешь:

#define PROTO_VERSION_MAJOR     1
#define PROTO_VERSION_MINOR     7
#define PROTO_VERSION ((((u_long)(PROTO_VERSION_MAJOR))<<16)|(u_long)(PROTO_VERSION_MINOR))

и пишешь:

const
  PROTO_VERSION_MAJOR = 1;
  PROTO_VERSION_MINOR = 7;
  PROTO_VERSION: DWORD = (PROTO_VERSION_MAJOR shl 16) or PROTO_VERSION_MINOR;

читаешь:

#define PROTO_MAJOR(p) (((p)&0xFFFF0000)>>16) 
#define PROTO_MINOR(p) ((p)&0x0000FFFF)

и пишешь:

function PROTO_MAJOR(P: DWORD): DWORD;
function PROTO_MINOR(P: DWORD): DWORD;

implementation

function PROTO_MAJOR(P: DWORD): DWORD;
begin
  Result := P shr 16;
end;

function PROTO_MINOR(P: DWORD): DWORD;
begin
  Result := P and $FFFF;
end;

и так далее...

[vovk]

Сообщение от GunSmoker

Ребят, вы чего? Какие DLL, какой obj? Это .h заголовочники для бинарных структур, отправляемых по сети.
,................
............

Посмотрите когда последнее сообщение было в теме))

[GunSmoker]

O_O

Блин, как так? У меня эта тема была показана в начале раздела как новая.

[3D Hunter]

Все новое - хорошо забытое старое, и хоть кого-то к этому тянет)