Форум программистов «Весельчак У»
  *
Добро пожаловать, Гость. Пожалуйста, войдите или зарегистрируйтесь.
Вам не пришло письмо с кодом активации?

  • Рекомендуем проверить настройки временной зоны в вашем профиле (страница "Внешний вид форума", пункт "Часовой пояс:").
  • У нас больше нет рассылок. Если вам приходят письма от наших бывших рассылок mail.ru и subscribe.ru, то знайте, что это не мы рассылаем.
   Начало  
Наши сайты
Помощь Поиск Календарь Почта Войти Регистрация  
 
Страниц: [1]   Вниз
  Печать  
Автор Тема: В чем различие WinAPI кода на C++ и Delphi?  (Прочитано 6707 раз)
0 Пользователей и 1 Гость смотрят эту тему.
nesluh
Новенький

ru
Offline Offline

« : 02-10-2010 17:40 » 

Всем доброго времени суток. У меня имеется следующая проблема: надо написать прогу под консоль Винды на Delphi с выводом русских букв.
Решил попробовать сделать через WinAPI так же, как это делается на C++, т.е.
Цитата
#include <conio.h>
#include <iostream>
#include <windows.h>
using namespace std;

typedef BOOL (WINAPI *SETCONSOLEFONT)(HANDLE, DWORD);
 SETCONSOLEFONT SetConsoleFont;

int main{

SetConsoleCP(1251);
SetConsoleOutputCP(1251);
 
HMODULE hmod = GetModuleHandleA("KERNEL32.DLL");
SetConsoleFont =(SETCONSOLEFONT) GetProcAddress(hmod, "SetConsoleFont");
if (!SetConsoleFont) {cout<<"error\n" ; exit(1);}
SetConsoleFont(GetStdHandle(STD_OUTPUT_HANDLE),1);
cout<<"Test test"<<endl;

getch();
return 0;
}

и получил следующий код:
Цитата
type
  funcdll = function (handle:THandle; NumFont:DWORD):LongBool;

var
  dllHandle:THandle;
  SetConsoleFont:funcdll;
  b:boolean;
begin
  SetConsoleCP(1251);
  SetConsoleOutputCP(1251);
  dllhandle:=GetModuleHandle('KERNEL32.DLL');
  @SetConsoleFont:=GetProcAddress(dllhandle,'SetConsoleFont');
  b:=SetConsoleFont(GetStdHandle(STD_OUTPUT_HANDLE),1);
  if(b) then writeln('УРА') else writeln(GetLastError);
  readln;
end.

В итоге: GetLastError возвращает 6, т.е. неверный дескриптор.
В чем мной была допушена ошибка, если на C++ код работает?
Записан
x77
Модератор

ro
Offline Offline
Пол: Мужской
меняю стакан шмали на обратный билет с Марса.


« Ответ #1 : 14-10-2010 15:13 » 

ошибка в объявлении функции, а точнее - в так называемых calling conventions, отечающих за передачу параметров. в дельфи, как и в паскале, по дефолту используется register - параметры передаются в регистрах слева направо. в си используется либо cdecl, либо stdcall, передающие параметры в стеке. сишный код работает просто потому, что kernel32 также написан на си. в вот чтобы заюзать это всё из паскаля, надо явно указывать условия вызова: cdecl или stdcall, в зависимости от того, кто занимаеися очисткой - вызывающий или сама функция.

т.е.:

Код:
type
  funcdll = function (handle:THandle; NumFont:DWORD):LongBool;stdcall;


также можно добавить, что SetConsoleFont - это переменная процедурного типа, уже являющаяся указателем, поэтому указание @ - лишено смысла, можно просто написать

Код:
SetConsoleFont:=GetProcAddress(dllhandle,'SetConsoleFont');
Записан

resource
Молодой специалист

ru
Offline Offline
Пол: Мужской

« Ответ #2 : 14-10-2010 20:36 » 

сишный код работает просто потому, что kernel32 также написан на си

На самом деле все функции в kernell32.dll - stdcall. А для Си родным соглашением является cdecl.  В прототипе (сишный код) написано - WINAPI. В данном случае WINAPI это и есть __stdcall. Поэтому всё работает.
Записан
nesluh
Новенький

ru
Offline Offline

« Ответ #3 : 19-10-2010 19:20 » 

Спасибо большое! Разобрался. Улыбаюсь
Записан
Страниц: [1]   Вверх
  Печать  
 

Powered by SMF 1.1.21 | SMF © 2015, Simple Machines