Articles   Members Online:
-Article/Tip Search
-News Group Search over 21 Million news group articles.
-Delphi/Pascal
-CBuilder/C++
-C#Builder/C#
-JBuilder/Java
-Kylix
Member Area
-Home
-Account Center
-Top 10 NEW!!
-Submit Article/Tip
-Forums Upgraded!!
-My Articles
-Edit Information
-Login/Logout
-Become a Member
-Why sign up!
-Newsletter
-Chat Online!
-Indexes NEW!!
Employment
-Build your resume
-Find a job
-Post a job
-Resume Search
Contacts
-Contacts
-Feedbacks
-Link to us
-Privacy/Disclaimer
Embarcadero
Visit Embarcadero
Embarcadero Community
JEDI
Links
How to form a DDE link with a Netscape browser Turn on/off line numbers in source code. Switch to Orginial background IDE or DSP color Comment or reply to this aritlce/tip for discussion. Bookmark this article to my favorite article(s). Print this article
29-Aug-02
Category
COM+
Language
Delphi All Versions
Views
148
User Rating
No Votes
# Votes
0
Replies
0
Publisher:
DSP, Administrator
Reference URL:
DKB
			Author: Tomas Rutkauskas

How to form a DDE link with a Netscape browser

Answer:

1   unit Netscp1;
2   
3   interface
4   
5   uses
6     SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls, Forms,
7     Dialogs, StdCtrls, DdeMan;
8   
9   type
10    TForm1 = class(TForm)
11      DdeClientConv1: TDdeClientConv;
12      Button1: TButton;
13      Button2: TButton;
14      Button3: TButton;
15      LinkStatus: TEdit;
16      Label1: TLabel;
17      Label2: TLabel;
18      URLName: TEdit;
19      procedure Button1Click(Sender: TObject);
20      procedure FormCreate(Sender: TObject);
21      procedure Button2Click(Sender: TObject);
22      procedure Button3Click(Sender: TObject);
23    private
24      { Private declarations }
25    public
26      { Public declarations }
27    end;
28  
29  var
30    Form1: TForm1;
31    LinkOpened: Integer;
32  
33  implementation
34  
35  {$R *.DFM}
36  
37  procedure TForm1.Button1Click(Sender: TObject);
38  begin
39    if LinkOpened = 0 then
40    begin
41      DdeClientConv1.SetLink(' Netscape ', ' WWW_OpenURL ');
42      if DdeClientConv1.OpenLink then
43      begin
44        LinkStatus.Text := ' Netscape Link has been opened ';
45        LinkOpened := 1;
46      end
47      else
48        LinkStatus.Text := ' Unable to make Netscape Link ';
49    end;
50  end;
51  
52  procedure TForm1.FormCreate(Sender: TObject);
53  begin
54    LinkOpened := 0;
55  end;
56  
57  procedure TForm1.Button2Click(Sender: TObject);
58  begin
59    DdeClientConv1.CloseLink;
60    LinkOpened := 0;
61    LinkStatus.Text := ' Netscape Link has been closed ';
62  end;
63  
64  procedure TForm1.Button3Click(Sender: TObject);
65  var
66    ItemList: string;
67  begin
68    if LinkOpened <> 0 then
69    begin
70      ItemList := URLName.Text + ', , 0xFFFFFFFF, 0x3, , ,';
71      DdeClientConv1.RequestData(ItemList);
72    end;
73  end;
74  
75  end.


			
Vote: How useful do you find this Article/Tip?
Bad Excellent
1 2 3 4 5 6 7 8 9 10

 

Advertisement
Share this page
Advertisement
Download from Google

Copyright © Mendozi Enterprises LLC