C#(Relatório Gerencial)
[DllImport("DarumaFrameWork.dll")]
public static extern int iRGImprimirTexto_ECF_Daruma(string pszTexto);
private void BT_Enviar_Click(object sender, EventArgs e)
{
DarumaFramework_DLL.DarumaFramework_Declaracoes_CSharp.iRetorno = DarumaFramework_DLL.DarumaFramework_Declaracoes_CSharp.iRGImprimirTexto_ECF_Daruma(“<b>Teste Daruma</b> <s>Teste Daruma</s>”);
}
C#(CCD)
[DllImport("DarumaFrameWork.dll")]
public static extern int iCCDImprimirTexto_ECF_Daruma(string pszTexto);
private void BT_Enviar_Click(object sender, EventArgs e)
{
DarumaFramework_DLL.DarumaFramework_Declaracoes_CSharp.iRetorno = DarumaFramework_DLL.DarumaFramework_Declaracoes_CSharp.iCCDImprimirTexto_ECF_Daruma(“<b>Teste Daruma</b> <s>Teste Daruma</s>”);
}
VB6(Relatório Gerencial)
Public Declare Function iRGImprimirTexto_ECF_Daruma Lib "DarumaFramework.dll" (ByVal pszTexto As String) As Integer
Private Sub BT_Enviar_Click()
iRetorno = iRGImprimirTexto_ECF_Daruma(“<b>Teste Daruma</b> <s>Teste Daruma</s>”);
End Sub
VB(CCD)
Public Declare Function iCCDImprimirTexto_ECF_Daruma Lib "DarumaFramework.dll" (ByVal pszTexto As String) As Integer
Private Sub BT_Enviar_Click()
Str_Texto_Comprovante = TB_Texto_Comprovante.Text
iRetorno = iCCDImprimirTexto_ECF_Daruma(“<b>Teste Daruma</b> <s>Teste Daruma</s>”);
End Sub
Delphi(Relatório Gerencial)
function iRGImprimirTexto_ECF_Daruma(pszTexto:String): Integer; StdCall; External ‘DarumaFramework.dll’;
procedure TFR_FISCAL_iRGImprimirTexto_ECF_Daruma.BT_ENVIARClick(
Sender: TObject);
begin
Int_Retorno:= iRGImprimirTexto_ECF_Daruma(‘<b>Teste Daruma</b> <s>Teste Daruma</s>’);
end;
Delphi(CCD)
function iCCDImprimirTexto_ECF_Daruma(pszTexto:string): Integer; StdCall; External 'DarumaFramework.dll';
procedure TFR_FISCAL_iCCDImprimirTexto_ECF_Daruma.BT_ENVIARClick(
Sender: TObject);
begin
Int_Retorno:= iCCDImprimirTexto_ECF_Daruma(‘<b>Teste Daruma</b> <s>Teste Daruma</s>’);
end;
Viu como é fácil?