cato

Wild boys always shine

User info:

Registered: Nov 2001
Posts: 5608 (0.65 al dì)
Location: lecco
Corso: F28
Anno: dottore
Time Online: 38 Days, 5:41:55 [...]
Status: Offline

Post actions:

mi sto avventurando nel magico mondo delle DLL.

il mio scopo è madare un array di char da un programma C a una funzione di una DLL (in delphi)

code:
#include <stdio.h>
#include <windows.h>
#include <string.h>

typedef int (CALLBACK* LPFNDLLFUNC1)(char*);
//CALLBACK* LPFNDLLFUNC1();
HINSTANCE hDLL;               // Handle to DLL
LPFNDLLFUNC1 lpfnDllFunc1;    // Function pointer

int 
main (){
   int a; 
   char stringa[32];
   char *s;
   
 hDLL = LoadLibrary("test.dll");
 if (hDLL != NULL){
   lpfnDllFunc1 = (LPFNDLLFUNC1)GetProcAddress(hDLL,"hello");
   
   if (!lpfnDllFunc1)
   {
      // handle the error
      FreeLibrary(hDLL);       
      return 1;
   }
   else
   {  
      stringa[0]='a';
      stringa[1]='b';
      stringa[2]='a';
      stringa[3]='c';
      stringa[4]='o';
      a=lpfnDllFunc1(stringa);
      printf("->%d",a);
   }
 }
}
   

code:
library test;
{prima prova di DLL}

uses
  SysUtils,
  Classes,
  finestra in 'finestra.pas' {Form1},
  Unit2 in 'Unit2.pas' {Form2};

function hello(stringa:array of pchar):integer;
begin
  result:=100;
  writeln(stringa[1]);
end;

exports
 hello;

{$R *.RES}
  var
 Form1: TForm1;

begin
 writeln('prova');
  //form1 := Tform1.Create(Nil);
  //form1.ShowModal;
  //form1.Free;

end. 

chiaramente non funziona....

__________________

code:
  , ,  | |  Me@Flickr
 [ov0] | |   my photo Blog
 {| |} |@| Pallavolo La Nuova Rossa Milano 
--"-"--| |
-------| |   "If You Can't Open It, You Don't Own It"  

CLod

JAILED

User info:

Registered: May 2002
Posts: 2688 (0.32 al dì)
Location: una delle 2 torri
Corso: Master ICT Sec
Anno: security
Time Online: 14 Days, 23:35:35 [...]
Status: Offline

Post actions:

bene

__________________
Se il pugno e' chiuso la mano e' vuota. Solo se la mano e' aperta puoi possedere tutto

yeah

.grande:maestro.

User info:

Registered: Nov 2003
Posts: 1644 (0.21 al dì)
Location: Cologno Monzese
Corso: Informatica Magistrale
Anno: II
Time Online: 12 Days, 21:36:41 [...]
Status: Offline

Post actions:

1) Sei obbligato ad usare Dephi per la DLL?
2) Che problemi ti da?
3) Con che cosa compili e con che parametri?

__________________
?

cato

Wild boys always shine

User info:

Registered: Nov 2001
Posts: 5608 (0.65 al dì)
Location: lecco
Corso: F28
Anno: dottore
Time Online: 38 Days, 5:41:55 [...]
Status: Offline

Post actions:

1)per il lato delphi no...
2)errori di memoria
3)gcc

__________________

code:
  , ,  | |  Me@Flickr
 [ov0] | |   my photo Blog
 {| |} |@| Pallavolo La Nuova Rossa Milano 
--"-"--| |
-------| |   "If You Can't Open It, You Don't Own It"  

yeah

.grande:maestro.

User info:

Registered: Nov 2003
Posts: 1644 (0.21 al dì)
Location: Cologno Monzese
Corso: Informatica Magistrale
Anno: II
Time Online: 12 Days, 21:36:41 [...]
Status: Offline

Post actions:

1) proviamo prima a risolvere gli altri 2 problemi :)
2) errori di esecuzione o di compilazione? Puoi postare il testo?
3) e con che parametri?

[edit]
Nel frattempo ci ho provato anche io :) ma tutto in C

dll.c

code:
#include <windows.h>

__declspec(dllexport) void printy(char *str)
{
 MessageBox(NULL, str, "printy.dll", MB_OK);
}

code:
#include <windows.h>

int main(int argc, char *argv[])
{
 HINSTANCE dllHandle;
 void (*my_func)(char *str);

 dllHandle = LoadLibrary("printy.dll");

 if(!dllHandle)
   {
    MessageBox(NULL, "Dll non caricata!", argv[0], MB_OK);
    return 0;
   }

 my_func = (void *) GetProcAddress(dllHandle, "printy");

 if(my_func)
   my_func("Ciao :)");
 else
   MessageBox(NULL, "Funzione non caricata!", argv[0], MB_OK);

 FreeLibrary(dllHandle);

 return 0;
}

__________________
?

Last edited by yeah on 22-02-2005 at 21:58

cato

Wild boys always shine

User info:

Registered: Nov 2001
Posts: 5608 (0.65 al dì)
Location: lecco
Corso: F28
Anno: dottore
Time Online: 38 Days, 5:41:55 [...]
Status: Offline

Post actions:

txs
domani lo provo

__________________

code:
  , ,  | |  Me@Flickr
 [ov0] | |   my photo Blog
 {| |} |@| Pallavolo La Nuova Rossa Milano 
--"-"--| |
-------| |   "If You Can't Open It, You Don't Own It"  

yeah

.grande:maestro.

User info:

Registered: Nov 2003
Posts: 1644 (0.21 al dì)
Location: Cologno Monzese
Corso: Informatica Magistrale
Anno: II
Time Online: 12 Days, 21:36:41 [...]
Status: Offline

Post actions:

Ora che riguardo il tuo codice, ho notato un problema:

code:
      stringa[0]='a';
      stringa[1]='b';
      stringa[2]='a';
      stringa[3]='c';
      stringa[4]='o';

Non termini la stringa con un '\0'. Se il problema di memoria è una violazione di segmento (del tipo "la memoria non poteva essere (read)" o simile) con buona probabilità è colpa di quello

Per semplicità puoi sostituirlo con un strcpy(stringa, "abaco");

__________________
?

cato

Wild boys always shine

User info:

Registered: Nov 2001
Posts: 5608 (0.65 al dì)
Location: lecco
Corso: F28
Anno: dottore
Time Online: 38 Days, 5:41:55 [...]
Status: Offline

Post actions:

risolto: mancava un "cdecl"

code:

function hello(var stringa:array of integer):integer;  cdecl;
begin
  writeln('DLL:');
  writeln(stringa[0]);
  writeln(stringa[1]);
  writeln(stringa[2]);
  writeln(stringa[3]);
  writeln(stringa[4]);
  result:=100;
end;

__________________

code:
  , ,  | |  Me@Flickr
 [ov0] | |   my photo Blog
 {| |} |@| Pallavolo La Nuova Rossa Milano 
--"-"--| |
-------| |   "If You Can't Open It, You Don't Own It"