VB TO DELPHI

[DAMAVAND]

با سلام
من میخوام یه برنامه رو که با VB نوشته شده به دلفی تبدیل کنم ولی یه مشکل :عصبانی++:
پیش اومده که :
یه متغییر بنام matrix تویه برنامه VB هست که از نوع Variant
ولی در دلفی وقتی به این متغییر تبدیل میکنم Eror میده
کسی میتونه بگه در دلفی به چه متغییری باید تبدیلش کنم?و چه جوری ازش استفاده کنم???
سورس و اکتیوایکس بکار رفترو انجا اپلود کردم !!
ان اکتیوایکس خیلی سریع عمل میکنه و استفاده ازش فکر کنم برایه دوستان جالب باشه !!
با تشکر از همه اساتید
:خجالت:

[DAMAVAND]

سلام
کسی نظری نداره???

[ghabil]

راستش من ایناهارو دانلود نکردم ولی هم ورینت داره ، و حتی انواع ورینت هم داره دقیقا بگو چه خطایی میگیری و زمان انجام چه کاری و Matrix چه مقداری رو میگیره و مقدارش از کجا میاد .

[DAMAVAND]

یه تابع داره که کدهای پیکسلهای تصویر رو تویه
یه متغییر واریانت ذخیره میکنه!! و بعدش تصویر رو نگاتیو میکنه!!!

سورس کامل ویژوال بیسیکشو جدا اپلود کردم!!!
ولی اینم اون قسمتش::
Private Sub Capture_Click()
Dim matrix As Variant
Dim x As Integer
Dim y As Integer
Dim i As Integer

' Capture one image
VideoOCX1.Capture (m_Image)
' Get access to the image pixel matrix
matrix = VideoOCX1.GetMatrix(m_Image)

' Simple example : Invert the colors of our image
For y = 0 To VideoOCX1.GetHeight - 1
For x = 0 To VideoOCX1.GetWidth - 1
matrix(x, y, 0) = 255 - matrix(x, y, 0)
matrix(x, y, 1) = 255 - matrix(x, y, 1)
matrix(x, y, 2) = 255 - matrix(x, y, 2)
Next x
Next y

[DAMAVAND]

:گیج: کسی نظری نداره???

[DAMAVAND]

من هر نوع وارییانتی که بگین امتحان کردم ولی برنامه هنگ میکنه !!!
یکی کمک کنه!!!!::گریه:
با تشکر

[SYNDROME]

با سلام
دوست عزیز اولا سورس دلفی رو قرار بده تا بتونیم چک کنیم.
دوم سعی کن دوباره بگردی همیشه برای هر مشکلی حتما یک عامل و یک راه حل هست؟
شک نکن .
شک نکن . .
شک نکن . . .