Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / C++ [игнор отключен] [закрыт для гостей] / Перевести Delphi-процедуру на С++ / 17 сообщений из 17, страница 1 из 1
19.04.2006, 13:43
    #33676457
dilomakin
dilomakin
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Перевести Delphi-процедуру на С++
Уважаемые господа. Я в С++ совсем новенький, поэтому не корите строго за мой элементарный вопрос. Просто в Инете ничего похожего не нашел. Суть. Имеется dll'ка, из которой необходимо вызвать функцию. Dll'ку я подключил через LoadLibrary. Теперь борюсь с вызовом этой функции. На Delphi она выглядит просто:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
 procedure  TForm1.Button1Click(Sender: TObject);
 var 
    Buf:  array [byte]  of  char;
    nLen: LongInt; 
 begin 
  nLen := sizeof(Buf)
   if  GetFIOPadegAS('Иванов',
                  'Иван',
                  'Иванович',
                   3 ,
                  @Buf,
                  nLen) =  0   then 
     begin 
      Label1.Caption := Buf;
     end ;
 end ;
Вопрос: А как записать это на С++ (особенно интересует С++ аналог Delphi-оператора @)?
Заранее благодарен за любую помощь.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
19.04.2006, 13:50
    #33676502
Карабас Барабас
Карабас Барабас
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Перевести Delphi-процедуру на С++
Покажи как объявлятся GetFIOPadegAS
Posted via ActualForum NNTP Server 1.3
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
19.04.2006, 13:53
    #33676513
dilomakin
dilomakin
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Перевести Delphi-процедуру на С++
Библиотека не моя, но в документации автор пишет такие строки:
Код: plaintext
1.
2.
 function  GetFIOPadegAS(pLastName, pFirstName, pMiddleName: PChar; 
                                 nPadeg: LongInt;
                                 pResult: PChar;  var  nLen: LongInt): Integer; stdcall;
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
19.04.2006, 13:58
    #33676536
Карабас Барабас
Карабас Барабас
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Перевести Delphi-процедуру на С++
Тогда что-то типа того:
Код: plaintext
1.
if (GetFIOPadegAS("Иванов","Иван","Иванович", 3 ,Buf,nLen) ==  0 )
{ ........}
или
Код: plaintext
1.
if (GetFIOPadegAS("Иванов","Иван","Иванович", 3 ,Buf,&nLen) ==  0 )
{ ........}
я не знаю толком, что значит var в паскале :(
Posted via ActualForum NNTP Server 1.3
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
19.04.2006, 14:01
    #33676552
dilomakin
dilomakin
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Перевести Delphi-процедуру на С++
var в Delphi означает, что параметр передается не по значению, а по ссылке.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
19.04.2006, 14:03
    #33676570
Карабас Барабас
Карабас Барабас
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Перевести Delphi-процедуру на С++
dilomakinvar в Delphi означает, что параметр передается не по значению, а по ссылкеЭто я знаю, я не знаю, чему это аналогично в с++: int &value или int *value.
Posted via ActualForum NNTP Server 1.3
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
19.04.2006, 14:07
    #33676588
dilomakin
dilomakin
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Перевести Delphi-процедуру на С++
Я делаю следующее:
В заголовочном файле объявляю тип
Код: plaintext
typedef int (__stdcall *GetFIOPadegFSAS)(const char[], short, char[], short&);
А в обработчике пишу следующее:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
HINSTANCE hDll = LoadLibrary("Padeg.dll");
	if (hDll) {
		GetFIOPadegFSAS pGetFIOPadegFSAS;
		pGetFIOPadegFSAS = (GetFIOPadegFSAS) GetProcAddress(hDll, "GetFIOPadegFSAS");
		char cased[ 255 ];
		short bLen = sizeof(cased);
		pGetFIOPadegFSAS("Петров Александр Федорович",  4 , cased, &bLen);
		FreeLibrary(hDll);
		MessageBox(cased, "Результат", MB_ICONINFORMATION);
	} else {
		MessageBox("DLL не загружена", "Ошибка", MB_ICONERROR);
}
Используемая мной функция несколько отличается параметрами от предыдущей, но это не меняет суть вопроса. Данная функция результат своей работы должна положить в переменную cased, длиной в bLen. А она не кладет...:-(((
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
19.04.2006, 14:09
    #33676599
dilomakin
dilomakin
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Перевести Delphi-процедуру на С++
Ну если по ссылке, то, видимо, в функцию передается указатель. Следовательно, &????
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
19.04.2006, 14:13
    #33676622
Карабас Барабас
Карабас Барабас
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Перевести Delphi-процедуру на С++
dilomakinЕсли ты объявляешь как (const char[], short, char[], short&) то вызывать надо ("Петров Александр Федорович", 4, cased, bLen);
Если ты вызываешь ("Петров Александр Федорович", 4, cased, &bLen); то объявление должно быть (const char[], short, char[], short*)
Posted via ActualForum NNTP Server 1.3
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
19.04.2006, 14:16
    #33676641
dilomakin
dilomakin
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Перевести Delphi-процедуру на С++
Карабас БарабасЕсли ты объявляешь как (const char[], short, char[], short&) то вызывать надо ("Петров Александр Федорович", 4, cased, bLen);

Собсссно...
А в cased после работы функции - мусор. На delphi либа работает как надо...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
19.04.2006, 14:18
    #33676647
Карабас Барабас
Карабас Барабас
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Перевести Delphi-процедуру на С++
dilomakinА в cased после работы функции - мусор. На delphi либа работает как надо...Что-то подсказывает мне, что объявлять надо как short *hLen, соответственно в вызове будет &nLen
Posted via ActualForum NNTP Server 1.3
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
19.04.2006, 14:22
    #33676662
dilomakin
dilomakin
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Перевести Delphi-процедуру на С++
Карабас БарабасЧто-то подсказывает мне, что объявлять надо как short *hLen, соответственно в вызове будет &nLen
Не-а. В cased по-прежнему мусор.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
19.04.2006, 14:25
    #33676676
Карабас Барабас
Карабас Барабас
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Перевести Delphi-процедуру на С++
dilomakinНе-а. В cased по-прежнему мусор.Ты сначала про одну функцию говорил, теперь я так понимаю, про другую. Покажи ее паскалевкое объявление и как ты ее объявляешь и вызываешь в сишном коде
Posted via ActualForum NNTP Server 1.3
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
19.04.2006, 14:28
    #33676695
dilomakin
dilomakin
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Перевести Delphi-процедуру на С++
Функции отличаются только тем, что вместо 3-параметров (фамилия, имя, отчество) используется 1 (фио одной строкой). Все остальное без изменений.
Код: plaintext
1.
 function  GetFIOPadegFSAS(pFIO: PChar; nPadeg: LongInt; pResult: PChar;
                          var  nLen: LongInt):Integer; stdcall;
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
19.04.2006, 14:42
    #33676743
Карабас Барабас
Карабас Барабас
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Перевести Delphi-процедуру на С++
dilomakinvar nLen: LongIntа ты short вызываешь .... надо int
Posted via ActualForum NNTP Server 1.3
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
19.04.2006, 14:49
    #33676771
dilomakin
dilomakin
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Перевести Delphi-процедуру на С++
Вот, блин.
Прочитал на каком-то форуме. Крупными буквами писали, если в delphi тип longint, то смело пишите short в С++. Не берусь судить о справедливости этого высказывания вообще, но в моем случае это не сработало.
Благодарю, Карабас, за науку.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
19.04.2006, 15:19
    #33676873
Карабас Барабас
Карабас Барабас
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Перевести Delphi-процедуру на С++
dilomakinв delphi тип longint, то смело пишите short в С++Плюнь им в глаз. Посмотри на sizeof этих двух типов данных
Posted via ActualForum NNTP Server 1.3
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / C++ [игнор отключен] [закрыт для гостей] / Перевести Delphi-процедуру на С++ / 17 сообщений из 17, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 410ms
Закрыть
start [/forum/topic.php?fid=57&tablet=1&tid=2031490]:
 0ms
get settings:
 9ms
get forum list:
 11ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 71ms
get topic data:
 9ms
get forum data:
 3ms
get page messages:
 60ms
get tp. blocked users:
 2ms
others: 239ms
total:  410ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]