Espero haber acertado con la sección, pues mi consulta tiene que ver tanto con DELPHI como con C++ BUILDER.
Se trata de una llamada a una función de una DLL; muestra una ventana con un objeto TListBox; si se pulsa el botón ACEPTAR la función devuelve TRUE y los valores contenidos en el objeto TListBox. Sin embargo la aplicación (en DELPHI) me devuelve la excepción EInvalidPointer.
CÓDIGO DE LA DLL (C++)
extern "C" _declspec(dllexport) bool _stdcall SeleccionarValores(char *buffer);
bool _stdcall SeleccionarValores(char *buffer){
bool resultado = FALSE;
Application->CreateForm(__classid(TFVentana), &FVentana);
try{
FVentana->ListBox1->Items->Add("PRIMAVERA");
FVentana->ListBox1->Items->Add("VERANO");
FVentana->ListBox1->Items->Add("OTOÑO);
FVentana->ListBox1->Items->Add("INVIERNO");
resultado = (FVentana->ShowModal == mrOk);
if (resultado){
int x;
x = SendMessage(FVentana->ListBox1->Handle, WM_GETTEXTLENGTH, 0, 0);
x++;
buffer = StrAlloc(x);
buffer = FVentana->ListBox1->Items->GetText();
}
}
__finally{
delete FVentana;
}
return resultado;
}
CÓDIGO DEL EXE (DELPHI)
procedure TForm1.Button2Click(Sender: TObject);
type
TLlamarDLL = function(buffer : PChar):boolean;stdcall;
var
LlamarDLL : TLlamarDLL;
DLL : THandle;
buffer : pchar;
begin
DLL := LoadLibrary('LIBRERIA.DLL');
if DLL > 0 then
begin
@LlamarDLL := GetProcAddress(DLL, 'SeleccionarValores');
if not(@LlamarDLL = nil) then
begin
LlamarDLL(buffer);
// Los valores que se mostraban en el LISTBOX de la DLL los "guardo" en el TCOMBOBOX de la aplicación
ComboBox1.Items.SetText(buffer);
StrDispose(buffer);
end;
FreeLibrary(DLL);
end;
end;
¿Alguien me puede señalar dónde está el error?
Un saludo para todos.
Mostrar Mensajes
