Fórum Converter VB para Delphi #154526

[quote:d77f38d894=´Jose Geraldo de Oliveira´]Olá pessoal, estou precisando de converter uma pequena rotina em VB
para Delphi. É uma função para ler dados de determinada DLL.

Desde já agradeço e peço desculpas, por não tratar de um assunto exclu-
sivamente de Delphi.

Quem puder me ajudar me envie um email em PVT para
jgo-oliveira@bol.com.br .
:?:

José Geraldo[/quote:d77f38d894]

Posta a rotina aqui para a gente poder dar uma olhada e dar uns pitacos...

Abaixo rotina em VB:

VERSION 5.00
Begin VB.Form Form1
Caption = ´Form1´
ClientHeight = 3645
ClientLeft = 60
ClientTop = 345
ClientWidth = 4710
LinkTopic = ´Form1´
ScaleHeight = 3645
ScaleWidth = 4710
StartUpPosition = 3 ´Windows Default
Begin VB.CommandButton Tester
Caption = ´Tester´
Height = 375
Left = 1320
TabIndex = 0
Top = 1440
Width = 1935
End
End
Attribute VB_Name = ´Form1´
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Const ClassName = ´GravaTXT´

Const propostas_pnca = ´c:\prop_pnca\´
Const propostas_txt = ´c:\arquivo_txt\´

Private Sub Tester_Click()

´**************************************************************************
´Conforme exemplo, a ApoliceLib.DLL e o ConverTXT.DLL devem estar na máquina
´Basta vc fazer um executável onde vc varre seu diratério de aqruivos binários
´pnca´s e indique um diretório de destino para os arquivos txt´s gerados.
´Sugiro que a cada arquivo binário processado, o mesmoseja deletado para não haver
´repetição.
´**************************************************************************

Dim x As Object
Set x = CreateObject(´ConverTXT.GravaTXT´)

Dim Proposta As Object
Set Proposta = CreateObject(´ApoliceLib.oApolice´)

Dim arquivo As String
Dim resultado As String
Dim erro As Variant

arquivo = propostas_pnca & Dir(propostas_pnca)

resultado = x.GravarArquivoTXT(Proposta, arquivo, propostas_txt, erro)

If resultado <> ´´ Then
MsgBox resultado
End If

End Sub






>>>>>>> Como fiz em delphi e está dando erro:

var
Form1: TForm1;
Procedure GravarArquivoTXT(Proposta, arquivo, dir_txt: string; erro: variant); stdcall;
external ´ConverTXT.dll´ name ´GravarArquivoTXT´;


Implementation
{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
var
pnca, txt, arq: string;
erro: Variant;
begin
pnca := ´c:\prop_pnca\´;
txt := ´c:\arquivo_txt\´;
arq := ´´;
GravarArquivoTXT(pnca, arq, txt, erro);
end;

veja http://bdn.borland.com/article/0,1410,26225,00.html

Pelo que entedi do trecho de código Vb o que vc está fazendo é uma Instancia de um controle ActiveX/Com/Ole.

Se for Esse o Caso, é fácil. Da mesma maneira que vc cria o Objeto no Vb vc vai fazer no Delphi com algumas particularidades, a Variável de Objeto deve ser do tipo OleVariant e Função que irá instancial essa classe é CreateOleObject. Feito isso vc acessa as propriedades e métodos desse objeto do mesmo jeito que no Vb.


qualquer dificuldade me escreva: msantos.rj@uol.com.br