vb de yazılmış bi cihaz kontrol kodu var axtivex olduğu için delphidede kontrol edebilyorum fakat takıldığım bi nokta var yardımcı olabilirmsiiniz?
vb de bir module tanımlanmış ve içine
Kod: Tümünü seç
Public Const SIZE_OF_IMAGE = 98304
form sayfasındada
Kod: Tümünü seç
Private Sub CommandTI_Click() 'event handler for TI Logo click
Dim buffer(SIZE_OF_IMAGE) As Byte
Dim varbuffer As Variant
Dim filename As String
Dim path As String
path = App.path 'set path to point to image file path (same as application path)
filename = "TILOGO.bmp" 'set filename to TI logo image file
varbuffer = buffer 'init image storage
Show_Image path, filename, varbuffer 'load and display image
Kod: Tümünü seç
Dim buffer(SIZE_OF_IMAGE) As Byte
sonrada
Kod: Tümünü seç
varbuffer = buffer 'init image storage
burda kalıyorum
delphide bi diziyi bir varianta ataamıyoruz !
bu konudayardımlarınız bekliyorum