Ir para conteúdo
Fórum Script Brasil
  • 0

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


vms

Pergunta

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?

Link para o comentário
Compartilhar em outros sites

4 respostass a esta questão

Posts Recomendados

  • 0
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

Link para o comentário
Compartilhar em outros sites

  • 0
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.

Link para o comentário
Compartilhar em outros sites

  • 0
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

Link para o comentário
Compartilhar em outros sites

  • 0

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

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

Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152,3k
    • Posts
      652,3k
×
×
  • Criar Novo...