| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Перевод кода из VB [D7]

hgd ©   (2006-12-19 14:40:00) 

Подскажите, как перевести кусок кода в 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

---

Сергей М.   (2006-12-20 08:40:00) [1]

> hgd   (19.12.06 16:50) [3]


Ну тогда так.

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

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

---

hgd   (2006-12-19 16:50:00) [2]

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

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

---

Сергей М.   (2006-12-19 15:24:00) [3]

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

см. Project | Import Type Library ..

---

tesseract   (2006-12-19 15:20:00) [4]

Без знания что за объект такой 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;



---

Наверх