Перевод кода Delphi: как описать TCommFortProcess и TCommFortGetData

@Andrey_k · Регистрация: 23.04.2009

Студворк — интернет-сервис помощи студентам

Здравствуйте!
Помогите пожалуйста переписать данный фрагмент делфи-кода DLL в C# или объясните как это сделать. Если говорить конкретнее, то не пойму как описать TCommFortProcess и TCommFortGetData, которые в delphi были типами.

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
unit main;
 
interface
 
uses Windows, Classes, SysUtils, Dialogs;
 
type
  TCommFortProcess = procedure(dwPluginID : DWORD; dID: DWORD; bOutBuffer : PAnsiChar; dwOutBufferSize : DWORD); stdcall;
  TCommFortGetData = function(dwID : DWORD; bInBuffer : PAnsiChar; dwInBufferSize : DWORD; bOutBuffer : PAnsiChar; dwOutBufferSize : DWORD): DWORD; stdcall;
 
 
function  PluginStart(dwThisPluginID : DWORD; func1 : TCommFortProcess; func2 : TCommFortGetData) : Integer; cdecl; stdcall;
 
exports PluginStart;
 
implementation
 
var
  dwPluginID : DWORD;
  CommFortProcess : TCommFortProcess;
  CommFortGetData : TCommFortGetData;
 
function PluginStart(dwThisPluginID : DWORD; func1 : TCommFortProcess; func2 : TCommFortGetData) : Integer;
begin
    dwPluginID := dwThisPluginID;
    CommFortProcess := func1;
        //указываем функцию обратного вызова, с помощью которой плагин сможет инициировать события
    CommFortGetData := func2;
        //указываем функцию обратного вызова, с помощью которой можно будет запрашивать необходимые данные от программы
    Result := Integer(TRUE);
end;
 
end.
//---------------------------------------------------------------------------

Konctantin · 21.11.2012, 22:14

Pascal
1
2
TCommFortProcess = procedure(dwPluginID : DWORD; dID: DWORD; bOutBuffer : PAnsiChar; dwOutBufferSize : DWORD); stdcall;
  TCommFortGetData = function(dwID : DWORD; bInBuffer : PAnsiChar; dwInBufferSize : DWORD; bOutBuffer : PAnsiChar; dwOutBufferSize : DWORD): DWORD; stdcall;

в C# это делегаты.

C#
1
2
public delegate void CommFortProcess(uint dwPluginID, uint dID, byte[] bOutBuffer, int dwOutBufferSize);
public delegate int CommFortGetData(uint dwID, byte[] bInBuffer, int dwInBufferSize, byte[] bOutBuffer, int dwOutBufferSize);

@Andrey_k · 21.11.2012, 22:17 **[ТС]**

Спасибо! После того как написал сообщение уже сам догадался.
А stdcall ни на что заменять не надо, просто убрать?

@Goal · 21.11.2012, 22:27

попробуй тут конвертер

Не по теме:

прошу извенения у модераторов за ссылку на другой ресурс

@Andrey_k · 21.11.2012, 22:29 **[ТС]**

Goal, а причём тут конвертер с VB.NET?

@77Bender77 · 21.11.2012, 22:33

может еще нужно

@Andrey_k · 21.11.2012, 22:35 **[ТС]**

77Bender77, хоть подобным средствам не очень доверяю, но попробую если возникнут проблемы. С преобразованием всего остального кода проблем вроде пока нет.

Konctantin · 22.11.2012, 13:09

Все эти программы, не переведут код, так чтобы сохранить 100% рабочее состояние.
Уж лучше самому все переписать. нежели доверять этим тулзам... ИМХО.

@Andrey_k · 22.11.2012, 13:37 **[ТС]**

Вчера попробовал Delphi2CS, на который тут оставляли ссылку. Переводит довольно неплохо, но всё равно нужно всё проверять и много исправлять вручную. Поэтому лучше всё сделать самому.

Новые блоги и статьи Все статьи Все блоги /
Перемещение выделенных строк ТЧ из одного документа в другой Maks 30.03.2026 Реализация из решения ниже выполнена на примере нетипового документа "ВыдачаОборудованияНаСпецтехнику" с единственной табличной частью "ОборудованиеИКомплектующие" разработанного в конфигурации КА2. . . .	Functional First Web Framework Suave DevAlt 30.03.2026 Sauve. IO Апнулись до NET10. Из зависимостей один пакет, работает одинаково хорошо как в режиме проекта так и в интерактивном режиме. из сложностей - чисто функциональный подход. Решил. . .	Автоматическое создание документа при проведении другого документа Maks 29.03.2026 Реализация из решения ниже выполнена на нетиповых документах, разработанных в конфигурации КА2. Есть нетиповой документ "ЗаявкаНаРемонтСпецтехники" и нетиповой документ "ПланированиеСпецтехники". В. . .	Настройка движения справочника по регистру сведений Maks 29.03.2026 Решение ниже реализовано на примере нетипового справочника "ТарифыМобильнойСвязи" разработанного в конфигурации КА2, с целью учета корпоративной мобильной связи в коммерческом предприятии. . . .
Автозаполнение реквизита при выборе элемента справочника Maks 27.03.2026 Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. При выборе "Спецтехники" (Тип Справочник. Спецтехника), заполняется. . .	Сумматор с применением элементов трёх состояний. Hrethgir 26.03.2026 Тут. https:/ / fips. ru/ EGD/ ab3c85c8-836d-4866-871b-c2f0c5d77fbc Первый документ красиво выглядит, но без схемы. Это конечно не даёт никаких плюсов автору, но тем не менее. . . всё может быть. . .	Автозаполнение реквизитов при создании документа Maks 26.03.2026 Программный код из решения ниже размещается в модуле объекта документа, в процедуре "ПриСозданииНаСервере". Алгоритм проверки заполнения реализован для исключения перезаписи значения реквизита,. . .	Команды формы и диалоговое окно Maks 26.03.2026 1. Команда формы "ЗаполнитьЗапчасти". Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. В качестве источника данных. . .

@Andrey_k 0 / 0 / 0 Регистрация: 23.04.2009 Сообщений: 15
	21.11.2012, 22:17 [ТС]
	Спасибо! После того как написал сообщение уже сам догадался. А stdcall ни на что заменять не надо, просто убрать? 0

@Goal Футболист 533 / 435 / 142 Регистрация: 31.10.2011 Сообщений: 1,010
	21.11.2012, 22:27
	попробуй тут конвертер Не по теме: прошу извенения у модераторов за ссылку на другой ресурс 0

@Andrey_k 0 / 0 / 0 Регистрация: 23.04.2009 Сообщений: 15
	21.11.2012, 22:29 [ТС]
	Goal, а причём тут конвертер с VB.NET? 0

@77Bender77 18 / 18 / 2 Регистрация: 16.12.2010 Сообщений: 145
	21.11.2012, 22:33
	может еще нужно 1

@Andrey_k 0 / 0 / 0 Регистрация: 23.04.2009 Сообщений: 15
	21.11.2012, 22:35 [ТС]
	77Bender77, хоть подобным средствам не очень доверяю, но попробую если возникнут проблемы. С преобразованием всего остального кода проблем вроде пока нет. 0

Konctantin 970 / 773 / 171 Регистрация: 12.04.2009 Сообщений: 1,700
	22.11.2012, 13:09
	Все эти программы, не переведут код, так чтобы сохранить 100% рабочее состояние. Уж лучше самому все переписать. нежели доверять этим тулзам... ИМХО. 0

@Andrey_k 0 / 0 / 0 Регистрация: 23.04.2009 Сообщений: 15
	22.11.2012, 13:37 [ТС]
	Вчера попробовал Delphi2CS, на который тут оставляли ссылку. Переводит довольно неплохо, но всё равно нужно всё проверять и много исправлять вручную. Поэтому лучше всё сделать самому. 0