Newsgroup: it.comp.lang.vo-clipper
Titolo: Utilizzo di funzioni di una DLL esterna a VO

Salve a tutti,
ho il seguente problema: devo utilizzare una .dll per poter generare
all'interno del mio applicativo dei codici a barre.
Il software che mi é stato consegnato ha esclusivamente degli esempi in
Visual Basic. Io non conosco VB ma ragionandoci un pò credo di essere in
grado di poterlo tradurre in VO. Quello che non conosco é come poter
accedere alla DLL.
C'é qualcuno che può darmi una mano ???
Vi mostro di seguito il codice così potete ragionarci meglio.
Grazie mille
MARIO ARIENTI
- Questo è il primo programma e si chiama I2of5vallsdll.bas:
Option Explicit
 
Declare Sub BarcodeI2of5 Lib "barcode.dll" ( _
    ByVal FontString As String, _
    ByVal InputString As String)
 
Declare Sub BarcodeI2of5SCCF Lib "barcode.dll" ( _
    ByVal FontString As String, _
    ByVal InputString As String)
 
Dim outbuff As String * 40
Public Function AzaleaI2of5(ByVal I2of5number As String) As String
    BarcodeI2of5 outbuff, I2of5number
    AzaleaI2of5 = outbuff
End Function
Public Function AzaleaI2of5SCCF(ByVal I2of5number As String) As String
    BarcodeI2of5SCCF outbuff, I2of5number
    AzaleaI2of5SCCF = outbuff
End Function
- e questo è il secondo programma e si chiama I2of5ver5.bas
Attribute VB_Name = "Module1"
Option Explicit
' This code can be incorporated into your application as
' long as the copyright notice is left intact.
' Redistribution of Azalea Software's fonts requires a licensing fee.
' Input error checking is the calling application's responsibility.
'*********************************************************************
Public Function AzaleaI2of5(ByVal I2of5number As String) As String
If Not IsNumeric(I2of5number) Then Exit Function
AzaleaI2of5 = PAzaleaI2of5(I2of5number)
End Function
'*********************************************************************
Private Function PAzaleaI2of5(ByVal I2of5number As String) As String
' I2of5Tools v5.0  2003 yazel
' Copyright 2003 Jerry Whiting.  All rights reserved.
' Azalea Software, Inc.   
in...@azalea.com
 
1 206 341.9500
  ' The input, I2of5number, is a numbers-only string.
  ' Format the output, AzaleaI2of5, using Azalea Software, Inc.'s bar code
fonts.
  Dim i As Integer
  Dim temp As String
  Dim temp2 As String  ' placeholder
  Dim chunk As String  ' placeholder
  If Len(I2of5number) Mod 2 <> 0 Then     ' if input has an odd number of
digits
    I2of5number = "0" + I2of5number          ' ...so pad it with a leading
zero
  End If
  ' divide input into pairs of digits
  temp2 = I2of5number
 For i = 1 To Len(I2of5number) / 2
 
    chunk = Left(temp2, 2)          'let's consider 2 first characters
    If Val(chunk) < 90 Then
 
          temp = temp + Chr(Val(chunk) + 33)
 
    ElseIf Val(chunk) = 90 Or Val(chunk) = 91 Then
 
          temp = temp + Chr(Val(chunk) + 182)
 
    Else
          temp = temp + Chr(Val(chunk) + 196)
 
    End If
      temp2 = Right(temp2, Len(temp2) - 2)     'then we erase the 2 First
characters and....
  Next i
  ' add start and stop bars (ASCII 171 & ASCII 172)
 PAzaleaI2of5 = Chr(171) + temp + Chr(172)
End Function

 ha scritto nel messaggio
news:rQXHa.98356$Ny5.2...@twister2.libero.it...
