AnSataOlá pessoal, seguinte..
tenho q acessar as funções de uma dll aqui, o cara dono da dll soh tem um
exemplo em VB, no ve ele usa a funcao "AssinarArquivos" resumidamente desta
forma:
Dim clsXSign As Object
Dim strAquivos(1) As String
Dim bolAssinou As Boolean
Set clsXSign = CreateObject("XSign.XSignDLL")
strAquivos(1) = txtArquivo.Text
bolAssinou = clsXSign.AssinarArquivos(strAquivos, "", False, False, False)
no delphi entaum to fazendo assim..
clsXSign : variant;
strAquivos: array[0..1] of string;
bolAssinou: boolean;
clsXSign := CreateOleObject('XSign.XSignDLL');
strAquivos[0] := 'C:\rag7.jpg';
bolAssinou := clsXSign.AssinarArquivos(strAquivos,'C:\', True, False,
false);
mas ao compilar da o seguinte erro "[Error] Un_testD7.pas(49): Type not
allowed in Variant Dispatch call"
será que eu estou criando o objeto de forma errada? se ao invés de eu passar
o array strAquivos eu escrever
uma string na mão ele compila e roda mas da erro na execução de tipos
incompartiveis, a documentação do cara
diz que tem q ser um array mas nem mesmo o tipo dele esta especificado, no
Vb ele fez com string assim to fazendo
da mesma forma.. eu ñ tenho pratica em usar dlls na aplicação.. devo tar
comendo bola
com algo bem basico a esse respeito. alguem tem alguma ideia??
Obrigado pessoal
--
No virus found in this outgoing message.
Checked by AVG Anti-Virus.
Version: 7.0.344 / Virus Database: 267.10.21/96 - Release Date: 10/09/2005
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
