Перевод кода из 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);

> hgd (19.12.06 16:50) [3]

Ну тогда так.

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

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

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