Ver Mensaje Individual
  #1  
Antiguo 08-03-2005
Khelma Khelma is offline
Registrado
 
Registrado: jul 2004
Posts: 4
Reputación: 0
Khelma Va por buen camino
Dlls en Delphi

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 . 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
Responder Con Cita