PDA

Ver la Versión Completa : Dlls en Delphi


Khelma
08-03-2005, 15:52:08
Hola a todos, espero que alguno me pueda ayudar a resolver el siguiente problema: necesito usar una Dll en un proyecto de delphi, solo tengo unas pautas de lo que contiene la Dll y está en Visual Basic, el problema esta en que no se exactamente como hacer la traducción a Delphi :rolleyes: . La Dll se llama SymbolSrv.

Espero que alguno de ustedes pueda ayudarme.. Gracias...;)

El código en VB es el siguiente:

SymbolSrv.Symbol, SymbolSrv.EleI --> Son tipos que se encuentran en el DLL

Dim SymbolSet As New SymbolSrv.Symbol
Dim RoadSym As New SymbolSrv.EleI

Set RoadSym = SymbolSet.GetCustomSymbol("EleI")
RoadSym.ForeColor = moBlack 'vnColorLinea
RoadSym.BackColor = moBlack

moLayerRenderer.ValueCount = 3
moLayerRenderer.Field = "DIR_TRAVEL"

moLayerRenderer.Value(0) = "B"
moLayerRenderer.Symbol(0).Custom = RoadSym
moLayerRenderer.Symbol(0).Size() = 5