Objetivo e utilização:
A opção SDLL serve para construir uma DLL dentro de um programa OpusWin.
Sintaxe:
$dll = < dll1 >
Argumentos:
|
< dll1 > |
Representa o nome de uma dll. |
Exemplos:
Os exemplos a seguir mostram a utilização desta opção de controle com a OpusWin e o Visual Basic.
Exemplo em OPUS:
$dll = test
proc p1
parameters var1, . . . ,varn
var1="Segunda"
varn = "Fim"
return
Exemplo em Visual Basic:
a) declarações gerais
Option Explicit
Private Declare Function p1 Lib "test.dll"(ByVal a As
String, ByVal t As Integer) As Integer
Dim < cad1> As String * < tam1 >
Dim < cadn > As String * < tamn >
b) chamada
p1(< cad1 > , < tam1 >, . . . , < cadn > , < tamn >)
Permite a execução do comando define em ambientes VB, Delphi ou OpusWin. Esta DLL somente tem uma função, chamada defcom, que recebe como parâmetro uma string na forma:
"define –d<arqerr><esquema>"
Declare function defcom lib "defcom32.dll"(byval a as string) as integer
Ret = defcom ("define –desq.err esq.e").
Rundll ("defcom32.dll","defcom", "define –dp.err p.f")
Permite a execução do comando Opus em ambientes VB, Delphi ou OpusWin. Esta DLL somente tem uma função, chamada opucom, que recebe como parâmetro uma string na forma:
"opus –a<arqerr><fonte>"
Declare function opucom lib "opucom32.dll" (byval a as string) as integer
Ret = opucom ("opus –dp.err p.f")
Rundll ("opucom32.dll", "opucom","opus –dp.err p.f")