BorlandTalk.com Borland discussion newsgroups   Archives   FAQ   Search   Memberlist   Usergroups   Register   Profile   Log in to check your private messages   Log in  THandle to OleVariant under windows 2000          BorlandTalk.com Forum Index -> Delphi OLE Automation View previous topic :: View next topic   Author Message Tobias Guest Posted: Tue May 08, 2007 3:03 pm    Post subject: THandle to OleVariant under windows 2000 Hello, I'am having problem with assigning a THandle to Olevariant under win2000? Under winXP this works. procedure AssignHandle(AHandle : THandle); var vHandle : OleVarinat; begin vHandle := AHandle; //vHandle is not a valid handle value. //do some stuff with vHandle. end; PS: I'am using Delphi 5. Back to top Dmitry Streblechenko Guest Posted: Tue May 08, 2007 10:02 pm    Post subject: Re: THandle to OleVariant under windows 2000 THandle is nothing more than an unsigned 4 byte integer. What exactly do you mean by "vHandle is not a valid handle value"? Dmitry Streblechenko (MVP) http://www.dimastr.com/ OutlookSpy - Outlook, CDO and MAPI Developer Tool "Tobias" <tobias__a (AT) hotmail (DOT) com> wrote in message news:46404ae8$1 (AT) newsgroups (DOT) borland.com... Quote: Hello, I'am having problem with assigning a THandle to Olevariant under win2000? Under winXP this works. procedure AssignHandle(AHandle : THandle); var vHandle : OleVarinat; begin vHandle := AHandle; //vHandle is not a valid handle value. //do some stuff with vHandle. end; PS: I'am using Delphi 5. Back to top Tobias Guest Posted: Wed May 09, 2007 8:13 am    Post subject: Re: THandle to OleVariant under windows 2000 "Dmitry Streblechenko" <dmitry (AT) dimastr (DOT) com> skrev i meddelandet news:4640ac6f$1 (AT) newsgroups (DOT) borland.com... Quote: THandle is nothing more than an unsigned 4 byte integer. What exactly do you mean by "vHandle is not a valid handle value"? procedure AssignHandle(AHandle : THandle); var vHandle : OleVariant; begin //AHandle is a handle to a form or a Panel. vHandle is a handle to a Panel. Quote: vHandle := AHandle; //vHandle is not a valid handle value. //do some stuff with vHandle. I'am using it to Initiat a ActiveX component(look below). MediaType is created using VarArrayCreate(..., varByte); Quote: end; IViewer = dispinterface procedure Init(NumberOfStreams: Integer; MediaType: OleVariant; hWnd: {??Int64} OleVariant); dispid 2; A Visual studio c++ exeple: // Initialize our viewer varMediaType = SafeArray.Detach(); viewer.Init(1, varMediaType, (INT64) GetSafeHwnd()); SafeArray.Attach(varMediaType); Documentation says: public: void Init( [in] LONG NumberOfStreams, [in] VARIANT MediaType, [in] LONGLONG hWnd ); Parameters NumberOfStreams Reserved. Set to 0. MediaType A byte array of media types describing the media sub streams. hWnd Handle to a window where video will be rendered. If NULL, video will not be rendered. //Tobias Back to top Karol Bieniaszewski Guest Posted: Wed May 09, 2007 2:01 pm    Post subject: Re: THandle to OleVariant under windows 2000 U¿ytkownik "Tobias" <tobias__a (AT) hotmail (DOT) com> napisa³ w wiadomo¶ci news:46417a7e$1 (AT) newsgroups (DOT) borland.com... Quote: "Dmitry Streblechenko" <dmitry (AT) dimastr (DOT) com> skrev i meddelandet news:4640ac6f$1 (AT) newsgroups (DOT) borland.com... THandle is nothing more than an unsigned 4 byte integer. What exactly do you mean by "vHandle is not a valid handle value"? procedure AssignHandle(AHandle : THandle); var vHandle : OleVariant; begin //AHandle is a handle to a form or a Panel. vHandle is a handle to a Panel. vHandle := AHandle; //vHandle is not a valid handle value. //do some stuff with vHandle. I'am using it to Initiat a ActiveX component(look below). MediaType is created using VarArrayCreate(..., varByte); end; IViewer = dispinterface procedure Init(NumberOfStreams: Integer; MediaType: OleVariant; hWnd: {??Int64} OleVariant); dispid 2; A Visual studio c++ exeple: // Initialize our viewer varMediaType = SafeArray.Detach(); viewer.Init(1, varMediaType, (INT64) GetSafeHwnd()); SafeArray.Attach(varMediaType); Documentation says: public: void Init( [in] LONG NumberOfStreams, [in] VARIANT MediaType, [in] LONGLONG hWnd ); Parameters NumberOfStreams Reserved. Set to 0. MediaType A byte array of media types describing the media sub streams. hWnd Handle to a window where video will be rendered. If NULL, video will not be rendered. //Tobias In this example i do not see any Handle as Variant - in your sample this is LONGLONG i suppose that this is Int64(DELPHI). I ommit something? Karol Bieniaszewski Back to top Tobias Guest Posted: Wed May 09, 2007 5:01 pm    Post subject: Re: THandle to OleVariant under windows 2000 Quote: THandle is nothing more than an unsigned 4 byte integer. What exactly do you mean by "vHandle is not a valid handle value"? procedure AssignHandle(AHandle : THandle); var vHandle : OleVariant; begin //AHandle is a handle to a form or a Panel. vHandle is a handle to a Panel. vHandle := AHandle; //vHandle is not a valid handle value. //do some stuff with vHandle. I'am using it to Initiat a ActiveX component(look below). MediaType is created using VarArrayCreate(..., varByte); end; IViewer = dispinterface procedure Init(NumberOfStreams: Integer; MediaType: OleVariant; hWnd: {??Int64} OleVariant); dispid 2; A Visual studio c++ exeple: // Initialize our viewer varMediaType = SafeArray.Detach(); viewer.Init(1, varMediaType, (INT64) GetSafeHwnd()); SafeArray.Attach(varMediaType); Documentation says: public: void Init( [in] LONG NumberOfStreams, [in] VARIANT MediaType, [in] LONGLONG hWnd ); Parameters NumberOfStreams Reserved. Set to 0. MediaType A byte array of media types describing the media sub streams. hWnd Handle to a window where video will be rendered. If NULL, video will not be rendered. //Tobias In this example i do not see any Handle as Variant - in your sample this is LONGLONG i suppose that this is Int64(DELPHI). I ommit something? In the file created with borland using import type library the decleration is a OleVariant. IViewer = dispinterface [''] procedure Init(NumberOfStreams: Integer; MediaType: OleVariant; hWnd: {??Int64}OleVariant); dispid 2; //Tobias Back to top Karol Bieniaszewski Guest Posted: Wed May 09, 2007 7:27 pm    Post subject: Re: THandle to OleVariant under windows 2000 U¿ytkownik "Tobias" <tobias__a (AT) hotmail (DOT) com> napisa³ w wiadomo¶ci news:4641b81a (AT) newsgroups (DOT) borland.com... Quote: THandle is nothing more than an unsigned 4 byte integer. What exactly do you mean by "vHandle is not a valid handle value"? procedure AssignHandle(AHandle : THandle); var vHandle : OleVariant; begin //AHandle is a handle to a form or a Panel. vHandle is a handle to a Panel. vHandle := AHandle; //vHandle is not a valid handle value. //do some stuff with vHandle. I'am using it to Initiat a ActiveX component(look below). MediaType is created using VarArrayCreate(..., varByte); end; IViewer = dispinterface procedure Init(NumberOfStreams: Integer; MediaType: OleVariant; hWnd: {??Int64} OleVariant); dispid 2; A Visual studio c++ exeple: // Initialize our viewer varMediaType = SafeArray.Detach(); viewer.Init(1, varMediaType, (INT64) GetSafeHwnd()); SafeArray.Attach(varMediaType); Documentation says: public: void Init( [in] LONG NumberOfStreams, [in] VARIANT MediaType, [in] LONGLONG hWnd ); Parameters NumberOfStreams Reserved. Set to 0. MediaType A byte array of media types describing the media sub streams. hWnd Handle to a window where video will be rendered. If NULL, video will not be rendered. //Tobias In this example i do not see any Handle as Variant - in your sample this is LONGLONG i suppose that this is Int64(DELPHI). I ommit something? In the file created with borland using import type library the decleration is a OleVariant. IViewer = dispinterface [''] procedure Init(NumberOfStreams: Integer; MediaType: OleVariant; hWnd: {??Int64}OleVariant); dispid 2; //Tobias may by you must change it to CARDINAL - 4Bytes or INT64 - 8 Bytes in this imported type library. I suppose that OleVariant is not good to store handle and autor of this library use some number value. Try change it to int64 if this is reali LONGLONG in documentation Karol Bieniaszewski Back to top Tobias Guest Posted: Thu May 10, 2007 3:43 pm    Post subject: Re: THandle to OleVariant under windows 2000 Quote: may by you must change it to CARDINAL - 4Bytes or INT64 - 8 Bytes in this imported type library. I suppose that OleVariant is not good to store handle and autor of this library use some number value. Try change it to int64 if this is reali LONGLONG in documentation Ole automation cant handle int64 in delphi 5 What can i do? Back to top Display posts from previous: All Posts1 Day7 Days2 Weeks1 Month3 Months6 Months1 Year Oldest FirstNewest First         BorlandTalk.com Forum Index -> Delphi OLE Automation All times are GMT Page 1 of 1   Jump to: Select a forum C++ Builder Newsgroups----------------C++ BuilderC++ Builder (ActiveX)C++ Builder (Announcements)C++ Builder (Command Line Tools)C++ Builder DatabasesC++ Builder Databases (ADO)C++ Builder Databases (Desktop)C++ Builder Databases (InterBase Express)C++ Builder Databases (Multi-Tier)C++ Builder Databases (SQL Servers)C++ Builder (Graphics)C++ Builder (IDE)C++ Builder (Internet)C++ Builder (Internet Socket)C++ Builder (Internet Web)C++ Builder (Jobs)C++ Builder (Language)C++ Builder (Language C++)C++ Builder (Compatibility with MFC)C++ Builder (Native API)C++ Builder (Non-Technical)C++ Builder (Students)C++ Builder (Third Party Tools)C++ Builder (Upgrade)C++ Builder (VCL)C++ Builder (VCL Components Usage)C++ Builder (VCL Components Development)C++ Builder (VCL Usage)C++ Builder (WinAPI)C++ Builder Installation Delphi Newsgroups----------------Delphi (General)Delphi ActiveX Controls UsageDelphi ActiveX Controls DevelopmentDelphi As400Delphi DatabasesDelphi Databases (ADO)Delphi Databases (dbExpress)Delphi Databases (Desktop)Delphi Databases (InterBase Express)Delphi Databases (Multi-Tier)Delphi Databases (SQL Servers)Delphi DeploymentDelphi GraphicsDelphi IDEDelphi InternationalizationDelphi InternetDelphi Internet Isapi-WebBrokerDelphi Internet WebSnapDelphi Internet WinsockDelphi JobsDelphi Language BASMDelphi Language ObjectPascalDelphi Model Driven Architecture (General)Delphi Model Driven Architecture (Third Party)Delphi MultimediaDelphi Native APIDelphi Non-TechnicalDelphi ObjectPascalDelphi OLE AutomationDelphi OO designDelphi OpenToolsAPIDelphi Reporting-ChartingDelphi RTLDelphi StudentsDelphi TeamSourceDelphi Thirdparty ToolsDelphi Thirdparty Tools (General)Delphi Thirdparty Tools (IntraWeb)Delphi Thirdparty Tools (RaveReports)Delphi UpgradeDelphi VCLDelphi VCL ComponentsDelphi VCL Components UsingDelphi VCL Components WritingDelphi WebServices SOAPDelphi WinAPIDelphi XMLDelphi Installationcomp.lang.pascal.delphi.components.misccomp.lang.pascal.delphi.components.usagecomp.lang.pascal.delphi.components.writingcomp.lang.pascal.delphi.databasescomp.lang.pascal.delphi.misccomp.sources.delphi JBuilder Newsgroups----------------JBuilderJBuilder AnnouncementsJBuilder Applet IssuesJBuilder As400JBuilder CompilerJBuilder CORBA/RMIJBuilder DatabasesJBuilder DB SwingJBuilder DebuggerJBuilder DeploymentJBuilder DocumentationJBuilder EnterpriseJBuilder HandheldJBuilder IDEJBuilder JavaJBuilder JavaAPIJBuilder Java LanguageJBuilder Java SwingJBuilder Java BeansJBuilder Java Beans UsageJBuilder Java Beans DevelopmentJBuilder JBCLJBuilder JDataStoreJBuilder JobsJBuilder LinuxJBuilder MacintoshJBuilder & MobileSetJBuilder MultiLingual AppsJBuilder Non-TechnicalJBuilder OpenToolsJBuilder Servlets (JSP)JBuilder StudentsJBuilder Team DevelopmentJBuilder Thirdparty ToolsJBuilder UpgradeJBuilder Installation InterBase Newsgroups----------------InterBaseInterBase Bug DiscussionInterBase GeneralInterBase IBConsoleInterBase OpenSourceInterBase ReplicationInterBase SQLInterBase ThirdpartyInterBase Installation Miscellaneous Borland Newsgroups----------------AppCenterAppServerEnteraVisiBroker  You cannot post new topics in this forum You cannot reply to topics in this forum You cannot edit your posts in this forum You cannot delete your posts in this forum You cannot vote in polls in this forum Powered by phpBB © 2001, 2006 phpBB Group SEO toolkit © 2004-2006 webmedic.