Tente com Char ! Se não engano a Dll da bematech tem algo assim tb.
constructor TVitor.Create( AOwner : TProgrammer );
begin
Name := 'Vitor Redes';
Login := 'vredes';
Password := '**********';
City := 'Curitiba';
Employee := 'Redsystem';
inherited Create( AOwner )
end;
end.
----- Original Message -----
From: Rafael
To: delphi-br@yahoogrupos.com.br
Sent: Wednesday, September 14, 2005 2:42 PM
Subject: [delphi-br] Array como parametro - funcao em DLL externa :(
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]
Yahoo! Grupos, um serviço oferecido por:
PUBLICIDADE
------------------------------------------------------------------------------
Links do Yahoo! Grupos
a.. Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
b.. Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço
do Yahoo!.
[As partes desta mensagem que não continham texto foram removidas]
--
<<<<< 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
