Форум: "Начинающим";
Текущий архив: 2007.01.07;
Скачать: [xml.tar.bz2];
ВнизПеревод кода из 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 вся ветка
Форум: "Начинающим";
Текущий архив: 2007.01.07;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.011 c