Discussion :

[jean-tristan]

Bonjour,
je travaille sur une application delphi et je me pose plusieurs questions :
Est-il possible d'intégrer du code C dans du delphi?
Est ce que cela va augmenter la rapidité de la tache de le coder en C de l'intégrer au code delphi, plutôt que de le coder en delphi?
Comment intégrer du code C dans du Delphi?
Je vous remercie de vos réponses.

[Cl@udius]

Salut et bienvenue

Est-il possible d'intégrer du code C dans du delphi?

Malheureusement la réponse est non. Sous Delphi on code en Delphi/Pascal. Tout code C/C++ devra être traduit dans ce langage.

@+ Claudius

[jean-tristan]

si le langage C est traduit en delphi, cela n'apporte aucune amélioration dans la rapidité de l'application??
Dans ce cas existe-t-il des moyens d'optimisation autre algorithmiquement (comparabla au -o3 du C)??
Aussi je souhaiterai savoir si le delphi est lent par rapport au C, Java C++?
Existe-il des outils de profilage?
Dans le delphi quelle chose sont à éviter pour eviter de perdre du temps
Merci de vos réponse

[tourlourou]

le C n'est pas forcément plus rapide... le compilo de Delphi est très performant, et quand on cherche à gagner en vitesse en codant une routine en assembleur, il n'est pas rare de faire plus lent !

[Cl@udius]

Je ne suis pas un spécialiste du C/C++ mais dans l'absolu ça ne devrait pas changer grand chose.
@+

[edit] Grilled

[exoseven]

tu dois pouvoir linker les .obj d'une compilation C après la vitesse sauf cas spécifique pas sur que tu gagnes beaucoup

[peter27x]

Un .exe qu'il ait été fait en C ou en Delphi ça reste un .exe en langage "bas niveau" non ?

Donc pourquoi ça irait plus vite pour l'un ?

[chaplin]

Quel est la taille du code en C ?

[Montor]

Quel est la taille du code en C ?

Sous delphi aussi on peut creer des fichier de quleque kilos
http://www.developpez.net/forums/d84...ir-delphi-cpp/

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
35
36
37
program Project1;
uses Windows;
{$R *.res}
const WM_DESTROY = $0002;
var Msg: TMSG;
    wClass: TWndClass;
    hInst, Handle: HWND;
function WindowProc(hWnd, Msg, wParam, lParam: Longint): Longint; stdcall;
begin
  Result:= DefWindowProc(hWnd, Msg, wParam, lParam);
  if (Msg = WM_DESTROY) then
  begin
    UnRegisterClass('myClass', hInst);
    ExitProcess(hInst);
  end;
end;
 
begin
  hInst:= GetModuleHandle(nil);
  with wClass do
  begin
    Style:= CS_PARENTDC;
    hIcon:= LoadIcon(hInst, 'MAINICON');
    lpfnWndProc:= @WindowProc;
    hInstance:= hInst;
    hbrBackground:= COLOR_BTNFACE+1;
    lpszClassName:= 'myClass';
    hCursor:= 0;
  end;
  RegisterClass(wClass);
  Handle:= CreateWindow('myClass', 'TEST', WS_CAPTION or WS_SYSMENU or WS_VISIBLE or WS_POPUP, 200, 200, 300, 200, 0, 0, hInst, nil);
  while GetMessage(Msg, Handle, 0, 0) do
  begin
    TranslateMessage(Msg);
    DispatchMessage(Msg);
  end;
end.