求ActiveX源码!!分不够可以再加 (200分)

  • 主题发起人 主题发起人 哈利波特
  • 开始时间 开始时间

哈利波特

Unregistered / Unconfirmed
GUEST, unregistred user!
经常看到别人开发出软件后会留有一个ActiveX(*.ocx)控件,以便其它程序员能够使用
它提供的API,以便进行扩展开发!
那位大侠手中有这样的ActiveX的源码?简单点的就行
非常感谢!!
 
用dehphi file->new一个
 
忘留email了-----tao518@163.com

to:xusong168
呵呵,那样做出来的东西是能用(以前天真大侠给了我一个例子),没有理解我的意思
 
同意xusong168
new一个是最简单得。[:D]
 
都成了灌水了。
泼特,你可以这样来自己给自己搞一个演示版本,如楼上所说,叫做 New 一个。 :-(
1.取一个自己或别人做的继承自 Twincontrol 的 vcl
2.点 New 选 ActiveX 下 ActiveX Lib
3.再点 New 选 ActiveX 下的 ActiveX Control 启动向导
4.Build
5.Run--------> Register ActiveX Server
OK 了。你看这个“ New 一个”多么形象。 :-) :-) :-)
 
是不是得自己做成控件啊?然后在做成activeX?
这样是不是有些麻烦啊?不能直接做成activex吗?

糊涂啊,让大家见笑了,没办法底子差啊
 
分分了。可以直接做,还不是一样?有问题,具体再商量。
尤其是类型库,亏了有 Delphi 帮着完成,不然有得苦吃了。
专门有一个类型库工具,是为 VC 准备的,Delphi 也能用的,
但受不了它的用法。这个类型库同普通资源文件一样被编译进入 OCX 。
 
TO:小雨哥
如果你有空的话,给我做一个吧!我再给你300分,这200分给你100,怎么样啊?
tao518@163.com
QQ:10503283
 
要我看 xusong168 ---- 80 分 第一个关注并正确的人
BlackDragon -- 60 分 关注并正确,如果他手脚快,也回答掉了。
小雨哥 ---- 只好拿余下的了,手脚慢不说,话还特别罗嗦。
同意就分了吧。 :-)
http://www-900.ibm.com/developerWorks/cn/components/cm-corbajct3/index.shtml
http://www.microsoft.com/msj/defaultframe.asp?page=/msj/0898/idl/idl.htm&nav=/msj/0898/newnav.htm
 
我同意:)
 
我不同意
我还没有达到目地啊!!!!!!!!!!!!!
 
我有一个用INDY发送邮件的ocx源码,我主要是把它用在网页中发邮件。
界面用了FlatStyle组件,你要否?
 
unit LabelEditImpl1;

{$WARN SYMBOL_PLATFORM OFF}

interface

uses
Windows, ActiveX, Classes, Controls, Graphics, Menus, Forms, StdCtrls,
ComServ, StdVCL, AXCtrls, LabelEditXControl1_TLB, LabelEdit;

type
TLabelEditX = class(TActiveXControl, ILabelEditX)
private
{ Private declarations }
FDelphiControl: TLabelEdit;
FEvents: ILabelEditXEvents;
protected
{ Protected declarations }
procedure DefinePropertyPages(DefinePropertyPage: TDefinePropertyPage)
override;
procedure EventSinkChanged(const EventSink: IUnknown)
override;
procedure InitializeControl
override;
function DrawTextBiDiModeFlagsReadingOnly: Integer
safecall;
function Get_AlignDisabled: WordBool
safecall;
function Get_Cursor: Smallint
safecall;
function Get_DoubleBuffered: WordBool
safecall;
function Get_EditText: WideString
safecall;
function Get_Enabled: WordBool
safecall;
function Get_Font: IFontDisp
safecall;
function Get_HelpKeyword: WideString
safecall;
function Get_HelpType: TxHelpType
safecall;
function Get_LabelText: WideString
safecall;
function Get_Visible: WordBool
safecall;
function Get_VisibleDockClientCount: Integer
safecall;
function IsRightToLeft: WordBool
safecall;
function UseRightToLeftReading: WordBool
safecall;
function UseRightToLeftScrollBar: WordBool
safecall;
procedure _Set_Font(var Value: IFontDisp)
safecall;
procedure InitiateAction
safecall;
procedure Set_Cursor(Value: Smallint)
safecall;
procedure Set_DoubleBuffered(Value: WordBool)
safecall;
procedure Set_EditText(const Value: WideString)
safecall;
procedure Set_Enabled(Value: WordBool)
safecall;
procedure Set_Font(const Value: IFontDisp)
safecall;
procedure Set_HelpKeyword(const Value: WideString)
safecall;
procedure Set_HelpType(Value: TxHelpType)
safecall;
procedure Set_LabelText(const Value: WideString)
safecall;
procedure Set_Visible(Value: WordBool)
safecall;
procedure SetSubComponent(IsSubComponent: WordBool)
safecall;
end;

implementation

uses ComObj;

{ TLabelEditX }

procedure TLabelEditX.DefinePropertyPages(DefinePropertyPage: TDefinePropertyPage);
begin
{TODO: Define property pages here. Property pages are defined by calling
DefinePropertyPage with the class id of the page. For example,
DefinePropertyPage(Class_LabelEditXPage)
}
end;

procedure TLabelEditX.EventSinkChanged(const EventSink: IUnknown);
begin
FEvents := EventSink as ILabelEditXEvents;
end;

procedure TLabelEditX.InitializeControl;
begin
FDelphiControl := Control as TLabelEdit;
end;

function TLabelEditX.DrawTextBiDiModeFlagsReadingOnly: Integer;
begin
Result := FDelphiControl.DrawTextBiDiModeFlagsReadingOnly;
end;

function TLabelEditX.Get_AlignDisabled: WordBool;
begin
Result := FDelphiControl.AlignDisabled;
end;

function TLabelEditX.Get_Cursor: Smallint;
begin
Result := Smallint(FDelphiControl.Cursor);
end;

function TLabelEditX.Get_DoubleBuffered: WordBool;
begin
Result := FDelphiControl.DoubleBuffered;
end;

function TLabelEditX.Get_EditText: WideString;
begin
Result := WideString(FDelphiControl.EditText);
end;

function TLabelEditX.Get_Enabled: WordBool;
begin
Result := FDelphiControl.Enabled;
end;

function TLabelEditX.Get_Font: IFontDisp;
begin
GetOleFont(FDelphiControl.Font, Result);
end;

function TLabelEditX.Get_HelpKeyword: WideString;
begin
Result := WideString(FDelphiControl.HelpKeyword);
end;

function TLabelEditX.Get_HelpType: TxHelpType;
begin
Result := Ord(FDelphiControl.HelpType);
end;

function TLabelEditX.Get_LabelText: WideString;
begin
Result := WideString(FDelphiControl.LabelText);
end;

function TLabelEditX.Get_Visible: WordBool;
begin
Result := FDelphiControl.Visible;
end;

function TLabelEditX.Get_VisibleDockClientCount: Integer;
begin
Result := FDelphiControl.VisibleDockClientCount;
end;

function TLabelEditX.IsRightToLeft: WordBool;
begin
Result := FDelphiControl.IsRightToLeft;
end;

function TLabelEditX.UseRightToLeftReading: WordBool;
begin
Result := FDelphiControl.UseRightToLeftReading;
end;

function TLabelEditX.UseRightToLeftScrollBar: WordBool;
begin
Result := FDelphiControl.UseRightToLeftScrollBar;
end;

procedure TLabelEditX._Set_Font(var Value: IFontDisp);
begin
SetOleFont(FDelphiControl.Font, Value);
end;

procedure TLabelEditX.InitiateAction;
begin
FDelphiControl.InitiateAction;
end;

procedure TLabelEditX.Set_Cursor(Value: Smallint);
begin
FDelphiControl.Cursor := TCursor(Value);
end;

procedure TLabelEditX.Set_DoubleBuffered(Value: WordBool);
begin
FDelphiControl.DoubleBuffered := Value;
end;

procedure TLabelEditX.Set_EditText(const Value: WideString);
begin
FDelphiControl.EditText := String(Value);
end;

procedure TLabelEditX.Set_Enabled(Value: WordBool);
begin
FDelphiControl.Enabled := Value;
end;

procedure TLabelEditX.Set_Font(const Value: IFontDisp);
begin
SetOleFont(FDelphiControl.Font, Value);
end;

procedure TLabelEditX.Set_HelpKeyword(const Value: WideString);
begin
FDelphiControl.HelpKeyword := String(Value);
end;

procedure TLabelEditX.Set_HelpType(Value: TxHelpType);
begin
FDelphiControl.HelpType := THelpType(Value);
end;

procedure TLabelEditX.Set_LabelText(const Value: WideString);
begin
FDelphiControl.LabelText := String(Value);
end;

procedure TLabelEditX.Set_Visible(Value: WordBool);
begin
FDelphiControl.Visible := Value;
end;

procedure TLabelEditX.SetSubComponent(IsSubComponent: WordBool);
begin
FDelphiControl.SetSubComponent(IsSubComponent);
end;

initialization
TActiveXControlFactory.Create(
ComServer,
TLabelEditX,
TLabelEdit,
Class_LabelEditX,
1,
'',
0,
tmApartment);
end.
 
to gonghh:
我要,分给你.
TigerDing@163.com
 
To TigerDing:
已发送,请查收!!!
 
to gonghh:
呵呵,我不要了!对我来说没什么用!
看我上面的代码,虽然简单了点,但你感觉和你的是不是大至相同啊
请各位大侠看好我的题目,然后给我一个满意的回复,好不好啊
不要说什么new一个,我上面的就是自己new的,不过没有和程序有什么交互作用,一点用没
 
我也要,cafekitty@963.net
是那个用indy在ie里发邮件的东东哦
 

Similar threads

后退
顶部