funcion en dll usada en vb6 se comporta diferente en delphi

[erickperez6]

Saludos,

Tengo una DLL que no se en que ambiente fue desarrollada, ni tampoco tengo documentacion de ella, solo tengo el codigo fuente de una aplicacion en visual basic 6 que la utiliza y funciona bien.

El problema lo tengo en una funcion que en vb6 funciona bien pero en delphi funciona pero a medias, me explico que sucede, tengo la siguiente declaracion de la funcion en vb6:

Private Declare Function AddMessageField Lib "efProtocol.dll" (ByVal szField As String, ByVal lFieldLength As Long) As Long

' dandole uso a la funcion
Private Sub AddField(sMessage As String)
Dim lAux As Long
    lAux = AddMessageField(sMessage, Len(sMessage))
    If lAux <> 0 Then ShowError (lAux)
End Sub

El procedimiento AddField lo que hace es mandar un mensaje al puerto serial y si la variable lAux trae un valor diferente a cero fue que ocurrio un error, resulta que es posible mandar mensajes en blanco en determinados momentos, es decir que puedo hacer esto:

AddField ""   ' esto es valido

En la version para delphi funciona bien hasta que envio mensajes en blanco, siempre lAux me devuelve un numero diferente a cero, pero he hecho una copia fiel de vb6 a delphi. La definicion en delphi que hice es la siguiente:

Código Delphi [-]
type
  tAddMessageField = function (szField : String; lFieldLength : Longint) : Longint; stdcall;

implementation 

var
   dllHandle : cardinal;
   AddMessageField : tAddMessageField;

procedure cargardll;
begin
  dllHandle := LoadLibrary('EFProtocol.dll') ;
  if dllHandle <> 0 then
   @SendSerialMessage := GetProcAddress(dllHandle, 'SendSerialMessage') ;
end;

function addcampo(texto : string) : longint;
begin
  result := AddMessageField(texto, Length(texto));

 // if  result <> 0 then
 //   raise Exception.Create('hubo un error en un mensaje ' + IntToStr(result));
end;

No importa la situacion ni el momento, pero siempre que mando un mensaje en blanco obtengo un error en la version delphi, pero nunca en la vb6, creo que la definificion en delphi de la funcion no es la apropiada, a alguien le ha pasado algo similar?

[[nlsgarcia]]

erickperez6,

Empezado por erickperez6

...Tengo una DLL...en vb6 funciona bien...siempre que mando un mensaje en blanco obtengo un error en la version delphi, pero nunca en la vb6...

' Declaración de la llamada a la DLL en VB6
Private Declare Function AddMessageField Lib "efProtocol.dll" (ByVal szField As String, ByVal lFieldLength As Long) As Long

Te comento:

1- En VB6 cuando una función envía un String por Valor a un DLL (ByVal), lo esta enviando como un String terminado en Nulo.

2- El tipo de dato Long en VB6 es equivalente a Integer en Delphi (Win32).

3- En el ejemplo en VB6 la función llamada en el DLL se denomina AddMessageField no SendSerialMessage, lo cual parece ser una incongruencia en el ejemplo en Delphi mostrado en el Msg #1.

Revisa este código:

Código Delphi [-]
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

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

  TAddMessageField = function (szField : PChar; lFieldLength : Integer) : Integer; Stdcall;

var
  Form1: TForm1;

implementation

{$R *.dfm}

var
  dllHandle : Cardinal;
  AddMessageField : TAddMessageField;

procedure CargarDll;
begin
   dllHandle := LoadLibrary('EFProtocol.dll') ;
   if dllHandle <> 0 then
      @AddMessageField := GetProcAddress(dllHandle, 'AddMessageField')
   else
      MessageDlg('La Librería EFProtocol.dll No Fue Cargada',mtError,[mbYes],0);
end;

function AddCampo(Texto : String) : longint;
begin
   if Assigned(AddMessageField) then
   begin
      if AddMessageField(PChar(Texto), Length(Texto)) <> 0 Then;
         raise Exception.Create('Error en un Mensaje: ' + IntToStr(result));
   end
   else
      MessageDlg('La Función AddMessageField No Fue Encontrada',mtError,[mbYes],0);
end;

procedure TForm1.Button1Click(Sender: TObject);
var
   DataSerialPort : String;

begin

   DataSerialPort := 'Texto a Enviar al Puerto Serial';

   CargarDLL;

   AddCampo(DataSerialPort);
   AddCampo('');

   FreeLibrary(dllHandle);

end;

end.

El código anterior carga una DLL de forma dinámica para el envío de datos a un puerto serial tomando en consideración los puntos señalados anteriormente en función del problema planteado.

Espero sea útil

Nelson.

[erickperez6]

si, tienes razon con la incogruencia, lo que pasa que tenia muchas funciones declaradas y las quite porque no venian al caso, y deje una funcion equivocada en el ejemplo.

En fin, resolvi el caso simplemente con definir el szField como Pchar y no como String.

Código Delphi [-]
TAddMessageField = function (szField : PChar; lFieldLength : Integer) : Integer; Stdcall;