¿como usar dll delphi 7 en c++ builder 6?

[JXJ]

con este codigo c
logre llamar a la funcionde la dll sin errores de memoria

 
//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "consumedelphidllu.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
Tconsumedelphidllf *consumedelphidllf;
//---------------------------------------------------------------------------
__fastcall Tconsumedelphidllf::Tconsumedelphidllf(TComponent* Owner)
        : TForm(Owner)
{
}

typedef const char* __cdecl(*pFunc)(char*); pFunc Directorio;
//---------------------------------------------------------------------------
void __fastcall Tconsumedelphidllf::Button1Click(TObject *Sender)
{
 HINSTANCE hDll ;

  hDll = LoadLibrary("directorios.dll");
  __try {
    if(hDll) {
      Directorio = (pFunc)GetProcAddress(hDll, "Directorio"); //obtiene el puntero
      Edit1->Text =  Directorio("DirUserDocs"); // ( lalalala )
    } else
      ShowMessage("No se pudo cargar la DLL");
  }
  __finally {
    FreeLibrary(hDll);
  }


 

}
//---------------------------------------------------------------------------

ahora el problema es el codigo delphi
por que al llamar a la funcion
que busca el directorio
al pasar el resultado en el programa borland c no da error sino que se pone en blaco el edit.
pero si se muestra el mesagebox con el directorio esperado.

Código Delphi [-]
library directorios;

uses
  EMemLeaks,
  EResLeaks,
  EDialogWinAPIMSClassic,
  EDialogWinAPIEurekaLogDetailed,
  EDialogWinAPIStepsToReproduce,
  EDebugExports,
  ExceptionLog7,
  SHFolder,

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls,
     ActiveX, shlobj, ShellAPI,   Registry, IniFiles;

 
    
{$R *.res}
function GetSystemPath(Folder: integer): PChar;
var sDir: string;
begin
  SetLength(sDir, MAX_PATH);
  ZeroMemory(@sDir[1], MAX_PATH);
  if Succeeded(SHGetFolderPath(0, Folder, 0, 0, PAnsiChar(sDir))) then
  begin
   Result := PChar(sDir);
    ShowMessage(sDir);
    end;
end;

function Directorio(dir: string): PChar; stdcall;
begin
 Result :=  GetSystemPath(CSIDL_PERSONAL);
end;


exports
Directorio;



begin
end.

ya no se donde esta el problema..
gracias por su tiempo.

ustedes no tienen algunos codigos fuente de los cuales aprender sobre
dll con delphi y llamado con c++, y dll c con llamados por programa c.c++

sigo revisando que ando haciendo mal.

[ecfisa]

Hola JXJ.

Usando Delphi 7 y C++ Builder 6, de este modo me funciona bién:

Código Delphi [-]
library Directorios;

uses Windows, SysUtils, Classes, SHFolder;

{$R *.res}

function GetSystemFolder(Folder: Integer): PChar;
var
  sDir: string;
begin
  SetLength(sDir, MAX_PATH);
  ZeroMemory(@sDir[1], MAX_PATH);
  SHGetFolderPath(0, Folder , 0, 0, PChar(sDir));
  Result := PChar(sDir);
end;

function Directorio(dir: string): PChar; stdcall;
begin
  Result :=  GetSystemFolder(CSIDL_PERSONAL);
end;

exports
  Directorio;

begin
end.

C++ Builder:

...
typedef const char* __cdecl(*pFunc) (char *);  pFunc Directorio;

void __fastcall TForm1::Button1Click(TObject *Sender)
{
  HINSTANCE hDll = LoadLibrary("directorios.dll");

  if (hDll) {
    Directorio = (pFunc) GetProcAddress(hDll, "Directorio");
    Edit1->Text = Directorio("DirUserDocs");
  } 
  else
    ShowMessage("No se pudo cargar la DLL");
}
...

Saludos

[JXJ]

ecfisa

Gracias. ahora si ya quedo..
gracias a todos.