Invalid Point Operation

[Paulo Nobre]

Estava testando uma dica de uso de dll e deu tudo certo.

Na dica os parâmetros eram todos inteiros e tratavam de uma chamada a uma função para verificar uma senha.

Resolvi modificar a função da dll para que a senha fosse alfanumérica.

Foi aí que a mensagem de erro apareceu.

Vejam se vocês podem me ajudar.

Na dll tenho o seguinte

library SENHA;


uses
  SysUtils,
  Classes;

function Chave(Pkey : String): String; export; // Criando a função
begin
  PKey := 'pn012345'; //Nossa senha de exemplo
  Chave := Pkey;
 end;

exports
 Chave;

{$R *.res}

begin
end.

No form que fará a chamada a dll(Senha.dll, que se encontra no local certo, ou seja, no mesmo diretório do programa), tenho um Edit e button. O usuário digita a senha(alfanumérica) e clica no button. Vejam o código completo da unit do form...

unit Unit1;

interface

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

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

var
  Form1: TForm1;

implementation

  Function Chave(Pkey : String):String; external 'SENHA.dll';
{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
  N, C : String;
begin
  N := Edit1.Text;
  C := Chave(Edit1.Text);
  if N = C then
    ShowMessage('Senha válida!')
  else
    ShowMessage('Senha inválida!');
end;
end.

O que está acontecendo...

digito a senha correta pn012345, clico no button a mensagem aparece, ou seja,

'Senha válida! e depois que clico no ok do showmwssage aparece a mensagem de erro

INVALID POINT OPERATION

Como havia mencionado caso faça a adaptação para que a senha seja do tipo integer aí não aparece a mensagem de erro.

Alguém pode ajudar?

[Micheus]

Talvez a resposta esteja no help. Procure por "ShareMem unit", para maiores detalhes, mas de ante-mão, quando você exporta funções ou procedimentos que recebem com parâmetros strings longas ...bla,bla... você deverá incluir esta unit na DLL (e deverá ser a primeira da cláusula uses) e no projeto que a utilizar. E neste caso ainda será necessário levar com o programa a DLL DELPHIMM.DLL (Delphi Memory Management).

Claro, se esta for a resposta ao seu problema.

[]s

[Paulo Nobre]

Perfeitamente Micheus e muito obrigado.

A resposta estava exatamente numa mensagem enorme que estava na minha cara.

Troquei String por SHORTSTRING e tudo se resolveu.

[]s

[s3c]

No caso de strings longas para aplicações Delphi, ShareMem resolve o problema. Mas se um outro aplicativo escrito em C++ por exemplo acessar a dll, é aconselhável utilizar PChar para o tipo String.

[Paulo Nobre]

Olá, s3c

Valeu pela dica.