Перевод кода с C++ на Delphi

[atagilov]

Добрый день! Если кто может, помогите с переводом кода)) Сам я бум бум в C++, но есть на нем код и его нужно перевести в Delphi..
Интересует экспорт из DLL, реализованно так:

#include <windows.h>
#include <iostream>
#include <fstream>


#define TACCESS_API  __declspec(dllimport)
typedef bool (WINAPI *tcallback)(BYTE* pData);
typedef BYTE* (WINAPI *typeSendCommand)(BYTE* pData);
typedef bool (WINAPI  *typeFreeMemory)(BYTE* pData);
typedef bool (WINAPI *typeSetCallback)(tcallback pCallback);


std::ofstream xmlfile;
typeFreeMemory FreeMemory;


bool CALLBACK acceptor(BYTE *pData)
{
	xmlfile<<pData<<std::endl;
	FreeMemory(pData);
	return true;
}

int main(int argc, char* argv[]) {

	setlocale(LC_CTYPE, "");

	std::cout<<"Statring!"<<std::endl;
	xmlfile.open("test.xml");
	xmlfile<<"<?xml version='1.0' encoding='UTF-8'?>";
	xmlfile<<"<root>";

	HMODULE hm = LoadLibrary("Debug\\txmlconnector.dll");
	if (hm) {
		typeSetCallback SetCallback =
			reinterpret_cast<typeSetCallback>(GetProcAddress(hm, "SetCallback"));

		FreeMemory =
			reinterpret_cast<typeFreeMemory>(GetProcAddress(hm, "FreeMemory"));

		SetCallback(acceptor);
	

		typeSendCommand SendCommand =
			reinterpret_cast<typeSendCommand>(GetProcAddress(hm,"SendCommand"));
		if (!SendCommand)	{
			printf("\"SendCommand\" not found (0x%X)\n", GetLastError());
			return -1;
		}
		else {
			BYTE* ss = SendCommand(reinterpret_cast<BYTE*>(
				"<command id='connect'>"
				"<login>KOKS</login><password>koks</password>"
				"<host>192.168.15.15</host><port>3901</port>"
				"<logsdir>.\\LOGS\\</logsdir><loglevel>0</loglevel></command>"));
			std::cout<<reinterpret_cast<const char*>(ss);
			FreeMemory(ss);

			Sleep(10000);

			ss = SendCommand(reinterpret_cast<BYTE*>("<command id='subscribe'>"
				"<alltrades><secid>304</secid></alltrades>"  //идентификаторы взял просто для примера
				"<quotations><secid>304</secid></quotations>" //в реально кода надо ориентировать на то,
				"<quotes><secid>304</secid></quotes>" //что присылвает сервер
				"</command>"));
			std::cout<<reinterpret_cast<const char*>(ss);
			FreeMemory(ss);

			Sleep(1000);

			ss = SendCommand(reinterpret_cast<BYTE*>(
					"<command id='disconnect'/>"));
				std::cout<<reinterpret_cast<char*>(ss);
			FreeMemory(ss);
		}
	
		try {
			FreeLibrary(hm);
		}
		catch (...) {
			std::cout<<"Fail in FreeLibrary";
		}
	}
	int err = GetLastError();
	xmlfile<<"</root>";

	std::cout<<"\nEnded...\n";
	char c;
	std::cin>>c;
	return 0;
}

Если кто может, помогите, пожалуйста, очень надо! Заранее премного благодарен!


________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

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

а где здесь вообще экспорт?
импорт вижу

[atagilov]

ээээммм.. простите, я в C++ не алле))) а что значит экспорт?)) это код исполняемой программы, которая работает с DLL.. вот три функции SetCallback, SendCommand и FreeMemory из этой DLL)

[atagilov]

если вот так сделать в Delphi:

type
                CallBack = procedure(pData : DWORD);
 
                ...
 
                procedure SetCallback(pCallback : CallBack); stdcall; external 'txmlconnector.dll';
                function SendCommand(pData : DWORD) : DWORD; stdcall; external 'txmlconnector.dll';
                procedure FreeMemory(pData : DWORD); stdcall; external 'txmlconnector.dll';

правильным будет?

[atagilov]

просто чтобы правильно перевести, нужно знать хорошо оба языка.. я к сожалению знаю только Delphi..

[atagilov]

а чем в Delphi можно заменить BYTE* C++? DWORD?