como usar a função dessa dll feita no c++builder

[vms]

olá pessoal, tenho essa dll feita em c++ builder que preciso usar no projeto em Delphi, mas não estou conseguindo usar. alguém pode dar uma ajuda?

esse é o codigo da dll feita em C++builder

#include <vcl.h>
#include <windows.h>
#pragma hdrstop

#pragma argsused
int WINAPI DllEntryPoint(HINSTANCE hinst, unsigned long reason, void* lpReserved)
{
        return 1;
}

extern "C" __declspec(dllexport)String VMSCriptografar(String Senha)
{
  int      x,y;
  String  NovaSenha, result,Chave;
  Chave = "mykey" ;
  for (x = 1; x <= (Chave.Length()); x ++)
    {
      NovaSenha = "";
      for(y = 1; y <=(Senha.Length()); y ++)
      NovaSenha = NovaSenha + char( ((int)(Chave[x]) ^ (int)(Senha[y])));
      Senha = NovaSenha;
    }
  return Senha;
}

tentando usar a função VMSCriptografar

//chamando a função
procedure VMSCriptografar (Senha : String);cdecl; external 'VMScpp.dll' name '@VMSCriptografar$qi';

//usando a função
Edit4.Text :=  VMSCriptografar(Edit4.Text);

dar esse erro [Error] UOS.pas(308): Incompatible types: 'String' and 'procedure, untyped pointer or untyped parameter' tentei assim basiada na dica do Jhonas http://scriptbrasil.com.br/forum/index.php...5540&hl=dll

Edit1.Text := VMSCriptografar(PChar(Edit2.Text));

e dar o mesmo erro

algem pode da uma ajuda?

[rickayron]

olá pessoal, tenho essa dll feita em c++ builder que preciso usar no projeto em Delphi, mas não estou conseguindo usar. alguém pode dar uma ajuda?

esse é o codigo da dll feita em C++builder

#include <vcl.h>
#include <windows.h>
#pragma hdrstop

#pragma argsused
int WINAPI DllEntryPoint(HINSTANCE hinst, unsigned long reason, void* lpReserved)
{
        return 1;
}

extern "C" __declspec(dllexport)String VMSCriptografar(String Senha)
{
  int      x,y;
  String  NovaSenha, result,Chave;
  Chave = "mykey";
  for (x = 1; x <= (Chave.Length()); x ++)
    {
      NovaSenha = "";
      for(y = 1; y <=(Senha.Length()); y ++)
      NovaSenha = NovaSenha + char( ((int)(Chave[x]) ^ (int)(Senha[y])));
      Senha = NovaSenha;
    }
  return Senha;
}

tentando usar a função VMSCriptografar

//chamando a função
procedure VMSCriptografar (Senha : String);cdecl; external 'VMScpp.dll' name '@VMSCriptografar$qi';

//usando a função
Edit4.Text :=  VMSCriptografar(Edit4.Text);

dar esse erro [Error] UOS.pas(308): Incompatible types: 'String' and 'procedure, untyped pointer or untyped parameter' tentei assim basiada na dica do Jhonas http://scriptbrasil.com.br/forum/index.php...5540&hl=dll

Edit1.Text := VMSCriptografar(PChar(Edit2.Text));

e dar o mesmo erro

algem pode da uma ajuda?

ola

de uma olhada nesse post talvez te ajude.

http://www.devmedia.com.br/articles/viewcomp.asp?comp=7902

ate mais

[vms]

ola

de uma olhada nesse post talvez te ajude.

http://www.devmedia.com.br/articles/viewcomp.asp?comp=7902

ate mais

A minha DLL foi criada no C++Builder e preciso usa-la no delphi.

Essa dica é para uma DLL criada no delphi. Não é o meu caso. Mas obrigado pela atenção.

Fico espenrando outras dicas.

[rickayron]

ola

de uma olhada nesse post talvez te ajude.

http://www.devmedia.com.br/articles/viewcomp.asp?comp=7902

ate mais

A minha DLL foi criada no C++Builder e preciso usa-la no delphi.

Essa dica é para uma DLL criada no delphi. Não é o meu caso. Mas obrigado pela atenção.

Fico espenrando outras dicas.

a criaçao de dll é para exportar determinados codigos em linguagens para serem usadas em outras linguagens nesse caso não há diferente uso uma do vb no delphi nessa mesma sintese

ate mais

[vms]

tentei fazer por aquele tutorial mas dar esse erro

---------------------------

CM.exe - Ponto de entrada não encontrado

---------------------------

Não foi possível localizar o ponto de entrada do procedimento VMSCriptografar na biblioteca de vínculo dinâmico VMScpp.dll.

---------------------------

OK

---------------------------