Скачать: CL | DM;

Перевод кода из VB   Найти похожие ветки 

← →
hgd   (2006-12-19 14:40) [0]

Подскажите, как перевести кусок кода в Delphi из VB 6.0

Dim b As Variant
Dim Size As Variant
Dim a() As Byte
Call CamImage.GetCurrentImage(b, Size)
a() = b
Open "C:\Test.jpg" For Binary Access Write As #1
Put #1, , a()
Close #1

---

← →
tesseract ©   (2006-12-19 15:20) [1]

Без знания что за объект такой CamImage могу предложить

var
size:DWORD;
a:array of byte;
f:file;
begin
 CamGet.GetCurrentImage(a[0],size);
 AssignFile(f,"C:\test.jpg");
 Rewrite(f);
 Write(f,a[0]);
end;



---

← →
Сергей М. ©   (2006-12-19 15:24) [2]

Для начала импортируй библ-ку типов объекта CamImage в Делфи - потом будет видно, что там и как

см. Project | Import Type Library ..

---

← →
hgd   (2006-12-19 16:50) [3]

Сама процедура выглядит так:

   procedure GetCurrentImage(var vImage: OleVariant; var vSize: OleVariant);

---

← →
Сергей М. ©   (2006-12-20 08:40) [4]

> hgd   (19.12.06 16:50) [3]


Ну тогда так.

var
b, Size:OleVariant;
...
CamImage.GetCurrentImage(b,size);
-> здесь ставишь брейкпойнт и смотришь чему равно TVarData(b).VType, от этого зависят дальнейшие действия.

Скорее всего это будет varArray

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.029 c