안녕하세요? 좋은 하루되시구요...
다음 비주얼 베이직 문을 델파이로 컨버젼 할 수 있는 방법이 있을까요?
참고로 폼에는 LCAOS라는 ActiveX 컨트롤이 있습니다.
ActiveX 컨트롤은 import시켰습니다...
'global
Dim ActiveLonMarkObject As LcaLonMarkObject
Dim NetworkVariables As LcaNetworkVariables
Dim NVpower1 As LcaNetworkVariable
Dim NVpower2 As LcaNetworkVariable
Dim CPpower1 As LcaConfigProperty
Public Sub DeclareNVCP()
Set NetworkVariables = ActiveLonMarkObject.NetworkVariables
Set NVpower1 = NetworkVariables.Item("nvoPower1")
End Sub
다른 프로시져에서는 위의 NVpower1.value를 에디트 박스에 쓰는 식으로 해서
이용합니다.
델파이로 간단할 것 같은데....(구조체 복사 혹은 오브젝트 복사 같은데...)
꼭 좀 부탁드립니다...
옛날 베이직을 참고삼아서.. 흐..
var
ActiveLonMarkObject : TLcaLonMarkObject; //요 부분은 아마도 데이터 형이
NetworkVariables : TLcaNetworkVariables; //ActiveX를 Import했을때
NVpower1 : TLcaNetworkVariable; //같이 정의되지 않았나 싶네요.
NVpower2 : TLcaNetworkVariable; //혹시 모르니 앞의 'T'자를 빼고도
CPpower1 : TLcaConfigProperty; //해보세요.
Procedure DeclareNVCP()
begin
NetworkVariables := ActiveLonMarkObject.NetworkVariables;
NVpower1 := NetworkVariables.Item('nvoPower1');
end;
위 처럼 하면 되지 않을까요?
송동일 께서 말씀하시기를...
> 안녕하세요? 좋은 하루되시구요...
> 다음 비주얼 베이직 문을 델파이로 컨버젼 할 수 있는 방법이 있을까요?
> 참고로 폼에는 LCAOS라는 ActiveX 컨트롤이 있습니다.
> ActiveX 컨트롤은 import시켰습니다...
>
> 'global
> Dim ActiveLonMarkObject As LcaLonMarkObject
> Dim NetworkVariables As LcaNetworkVariables
> Dim NVpower1 As LcaNetworkVariable
> Dim NVpower2 As LcaNetworkVariable
> Dim CPpower1 As LcaConfigProperty
>
> Public Sub DeclareNVCP()
> Set NetworkVariables = ActiveLonMarkObject.NetworkVariables
> Set NVpower1 = NetworkVariables.Item("nvoPower1")
> End Sub
>
> 다른 프로시져에서는 위의 NVpower1.value를 에디트 박스에 쓰는 식으로 해서
> 이용합니다.
>
> 델파이로 간단할 것 같은데....(구조체 복사 혹은 오브젝트 복사 같은데...)
> 꼭 좀 부탁드립니다...