[DELPHI - C] Chiamare funzioni C dal Delphi.

[nico88desmo]

Un saluto a tutti!

Ho visto che in Delphi si possono chiamare delle funzioni scritte in C se si utilizzano le DLL.
Siccome io dovrò fare un programma multi-piattaforma non potrò usufruire delle DLL perchè utilizzabili solo da Windows.

Ho visto che si potrebbe linkare l'object del C tramite la direttiva
- {$L progC.o}
e in questo modo si collega il file C (o meglio il codice oggetto del C) al progetto delphi.

però poi per chiamare le funzioni?

Grazie a tutti

[nico88desmo]

Ci sono riuscito!!!

Scrivo le sequenze da fare per creare il .exe.

Con questo si genera il .o di nome c1.o che è il file oggetto del C
- gcc -c c1.c

Una volta fatto questo, tramite la direttiva scritta all'interno della unit pascal
- {$L c1.o}
permetto di richiamare le funzioni scritte in C e poi la dichiarazione della funzione C è:
- function prova():integer; cdecl; external;
external = dice che è una funzione esterna;
cdecl = (c declaration) dice che è una funzione scritta in C

Precisazione;
Come ambiente di sviluppo ho utilizzato
- LAZARUS per form e codice delphi(pascal) (compatibile sia linux sia windows)

e come compilatore
- GCC come compilatore del C

Il linkaggio del programma è stato fatto tramite l'IDE LAZARUS.

codice delphi:

{$L c1.o}
unit Unit2;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, LResources, Forms, Controls, Graphics, Dialogs, Buttons,
  StdCtrls;

type

  { TForm1 }

  TForm1 = class(TForm)
    Button1: TButton;
    Memo1: TMemo;
    procedure Button1Click(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end; 

var
  Form1: TForm1; 
  
implementation

function prova():integer; cdecl; external;

{ TForm1 }

procedure TForm1.Button1Click(Sender: TObject);
var
   n:integer;
begin
  n:=prova();
  Memo1.text:=inttostr(n);
  
end;

codice C:

#include <stdlib.h>


int prova();

int prova() {

   return 5;
}