Passagem de par�metros

Question

Estou com o seguinte problema: tenho que fazer uma DLL quer ir� ser utilizada por outra DLL j� existente. A minha DLL ir� acessar outras DLL�s de fabricantes de impressora(BemaFI32.dll, Daruma32.dll, ...

Bruno Belchior · Answer

RJun, tente alterar suas fun��es para trabalharem com PChar, ao inv�s de string... Dessa maneneira �creio eu� que sua altera��o ira refletir na vari�vel mesmo sem o [b:266dbd7bac]var[/b:266dbd7bac], pois estar� trabalhando com ponteiro...

Edilcimar · Answer

Eu conhe�o a bematech, a daruma e a schalter, por�m n�o conhe�o esta a qual voc� se refere, mas cada uma delas possui um padr�o de retorno de dados, a� � s� voc� pegar um exemplo do pr�prio fabricante que eles informam como fazer. Em alguns casos, a bematech por exemplo envia uma seq��ncia de caracteres onde voc� tem que fazer a divis�o dos mesmos para saber o que significa.
Vamos supor que esta impressora retorne
x:= �abd1234567kitr00379�, onde isto poderia significar que o 121345 fosse o n�mero de s�rie, o abd fosse informa��es de erro, o kitr e o 00379 fossem outras informa��es

Rjun · Answer

No caso da Daruma ou Bematech, basta voc� chamar a fun��o da dll.

Exemplo:

function Bematech_FI_NumeroSerie(Serie: string): Integer; stdcall; external �BemaFI32.dll�

function TClasse.NumeroSerie(Serie: string): integer;
begin
  result := Bematech_FI_NumeroSerie(Serie);
end;

Desse jeito funciona, mesmo eu n�o usando VAR na passagem de par�metro. O problema � pra Epson. Como n�o existe uma fun��o igual a da Bematech, eu tenho q chamar outra fun��o e com o retorno dela encontrar o n�mero de s�rie. O problema � passar para a fun��o chamadora sem usar o VAR.

Rjun · Answer

Bruno, valeu pela sugest�o, mas n�o deu certo....

Edilcimar · Answer

a bematech na realidade retorna uma string muito grande, por�m as chamadas de fun��es dividem esta string retornando apenas aquilo que interessa, mas se voc� tentar pegar a parte referente ao erro vai ver que vc ter� que traduzir isto, pegue a fun��o da bematech
Procedure Analisa_Retorno;
e ver� que ela retorna
Ret, ACK, ST1 e ST2
onde voc� ter� que decifrar isto para saber qual foi a resposta da impressora

Bruno Belchior · Answer

Acho que o problema que o amigo RJun se refere n�o � em como pegar o retorno, mas sim uma maneira de trabalhar a string de forma que o retorno da fun��o funcione de maneira similar a passagem de valores por refer�ncia, mas sem usar o [b:42430cc57c]var[/b:42430cc57c]. (Se estiver errado me corrija).

Edilcimar · Answer

Sim, eu concordo, s� que ele tem que �casar� o envio de vari�vel dele com a dll do fabricante, pois o retorno se n�o estiver �casado� poder� retornar a string grande ou n�o retornar nada, e para isto ele dever� verificar o exemplo fornecido pelo fabricante, conforme escrevi na primeira resposta

Rjun · Answer

Edilcimar, meu problema n�o � pegar o n�mero de s�rie, e sim passar para a aplica��o chamadora. Com as DLL�s Bematech e Daruma consigo. Com a Epson eu consigo extrair o n�mero, so n�o estou conseguindo passar para a aplica�ao que fez a chamada.

Eu tentei assim agora:

Defini a fun��o que exporta da seguinte maneira:

// Declara��o
function NumeroSerie(var ANumeroSerie: string): Integer; stdcall; export

// M�todo
function NumeroSerie(var ANumeroSerie: string): Integer; 
begin
  result := ECF.NumeroSrie(ANumeroSerie);
end;

S� que no momento da chamada da fun��o, eu coloco um Watch para o ANumeroSerie eu n�o consigo ver o valor da variavel. Se eu tento atribuir algum valor para ANumeroSerie, d� uma exce��o.

Lembrando que eu n�o posso alterar a DLL chamadora.

Edilcimar · Answer

Eu entendi tudo isto, mas o que eu disse continua valendo, o teu envio tem que �casar� com a dll do fabricante, sen�o voc� n�o consegue pegar o resultado, vamos supor que o envio correto tenha que ser �@x��, isto � uma string e voc� est� enviando algo num�rio ou mesmo uma string com formata��o diferente da desejada pela dll do fabricante, por isto disse desde o come�o para voc� olhar o exemplo fornecido pelo fabricante para poder efetuar este �casamento� de par�metro

F�rum Passagem de par�metros #350192