We value your feedback.
Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!
Course Of The Month
8 days, 8 hours left to enrollBecome a Premium Member and unlock a new, free course in leading technologies each month.
[X]
Welcome to Experts Exchange
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
- Help others & share knowledge
- Earn cash & points
- Learn & ask questions
11
6
- +2
23 Comments
Have a look at my "LinkGrabber" at http://www.experts-exchange.com/Programming/Programming_Languages/Delphi/Q_20830833.html
I suggest using regular expression.
For example You can download
http://regexpstudio.com/TRegExpr/TRegExpr.html
It's quite powerfull and easy to use.
For example You can download
http://regexpstudio.com/TRegExpr/TRegExpr.html
It's quite powerfull and easy to use.
Re: "LinkGrabber": The whole project is available in the following zip file: http://members.rogers.com/alan.bu/LinkGrabber.zip
sftweng,
Cannot Understand how LinkGrabber could help me do that!
what I need is follwoing:
I have a HTML File:
--------------------------
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<title>Neue Seite 1</title>
</head>
<body>
<p><a href="http://www.google.de">
<img border="0" src="http://www.google.de/intl/de_de/images/logo.gif" width="800" height="600"></a></p>
</body>
</html>
--------------------------
by Clicking on the Image I will redirected to google, now I want to extract the Image ("http://www.google.de/intl/de_de/images/logo.gif) and the Link for this image (http://www.google.de), and get an output like this:
[Link01]
image= http://www.google.de/intl/de_de/images/logo.gif
Link= http://www.google.de
Cannot Understand how LinkGrabber could help me do that!
what I need is follwoing:
I have a HTML File:
--------------------------
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<title>Neue Seite 1</title>
</head>
<body>
<p><a href="http://www.google.de">
<img border="0" src="http://www.google.de/intl/de_de/images/logo.gif" width="800" height="600"></a></p>
</body>
</html>
--------------------------
by Clicking on the Image I will redirected to google, now I want to extract the Image ("http://www.google.de/intl/de_de/images/logo.gif) and the Link for this image (http://www.google.de), and get an output like this:
[Link01]
image= http://www.google.de/intl/de_de/images/logo.gif
Link= http://www.google.de
I have to go to a meeting for a couple of hours but I'll try to get back to this later today. Sorry.
Active 5 days ago
k4hvd77
place a webbrowser, memo and 2 buttons on the form and try this code :
by the way , first navigate the page(ex. www.yahoo.com or html file or ... ) to the webbrowser.
Regards
Azhdari
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs,activex,comctrls,o
type
TForm1 = class(TForm)
WebBrowser1: TWebBrowser;
Button1: TButton;
Memo1: TMemo;
Button2: TButton;
procedure Button2Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button2Click(Sender
var li:word;
var s1,s2:string;
var i,j:integer;
begin
memo1.Lines.Clear;
for li:=0 to webbrowser1.OleObject.docu
begin
s1:='';
with memo1.lines do
begin
add('[LINK'+inttostr(li)+'
add('image= '+webbrowser1.OleObject.do
s1:=webbrowser1.OleObject.
if ((strpos(pchar(s1),'http')
begin
s2:='';
j:=0;
for i:=1 to length(s1) do
begin
if (j=3) then
break;
s2:=s2+s1[i];
if s1[i]='/' then
inc(j);
end;
add('Link= '+s2);
end
else
add('Link= Load From Drive');
end;
end;
end;
procedure TForm1.Button1Click(Sender
begin
webbrowser1.Navigate('www.yahoo.com');
end;
end.
place a webbrowser, memo and 2 buttons on the form and try this code :
by the way , first navigate the page(ex. www.yahoo.com or html file or ... ) to the webbrowser.
Regards
Azhdari
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs,activex,comctrls,o
type
TForm1 = class(TForm)
WebBrowser1: TWebBrowser;
Button1: TButton;
Memo1: TMemo;
Button2: TButton;
procedure Button2Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button2Click(Sender
var li:word;
var s1,s2:string;
var i,j:integer;
begin
memo1.Lines.Clear;
for li:=0 to webbrowser1.OleObject.docu
begin
s1:='';
with memo1.lines do
begin
add('[LINK'+inttostr(li)+'
add('image= '+webbrowser1.OleObject.do
s1:=webbrowser1.OleObject.
if ((strpos(pchar(s1),'http')
begin
s2:='';
j:=0;
for i:=1 to length(s1) do
begin
if (j=3) then
break;
s2:=s2+s1[i];
if s1[i]='/' then
inc(j);
end;
add('Link= '+s2);
end
else
add('Link= Load From Drive');
end;
end;
end;
procedure TForm1.Button1Click(Sender
begin
webbrowser1.Navigate('www.yahoo.com');
end;
end.
AmirAzhdari,
that's not what I'm looking for!
RE:
what I need is follwoing:
I have a HTML File:
--------------------------
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<title>Neue Seite 1</title>
</head>
<body>
<p><a href="http://www.google.de">
<img border="0" src="http://www.google.de/intl/de_de/images/logo.gif" width="800" height="600"></a></p>
</body>
</html>
--------------------------
by Clicking on the Image I will redirected to google, now I want to extract the Image ("http://www.google.de/intl/de_de/images/logo.gif) and the Link for this image (http://www.google.de), and get an output like this:
[Link01]
image= http://www.google.de/intl/de_de/images/logo.gif
Link= http://www.google.de
that's not what I'm looking for!
RE:
what I need is follwoing:
I have a HTML File:
--------------------------
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<title>Neue Seite 1</title>
</head>
<body>
<p><a href="http://www.google.de">
<img border="0" src="http://www.google.de/intl/de_de/images/logo.gif" width="800" height="600"></a></p>
</body>
</html>
--------------------------
by Clicking on the Image I will redirected to google, now I want to extract the Image ("http://www.google.de/intl/de_de/images/logo.gif) and the Link for this image (http://www.google.de), and get an output like this:
[Link01]
image= http://www.google.de/intl/de_de/images/logo.gif
Link= http://www.google.de
Active 3 days ago
try DIHtmlParser
http://www.zeitungsjunge.de/delphi/htmlparser/index.htm
http://www.zeitungsjunge.de/delphi/htmlparser/index.htm
Change to "LinkGrabber":
{=========================
procedure TLGForm.Parse1Click(Sender
VAR
il, ic, lc, lb, rb, linkCount : INTEGER;
s, t, d : String;
collecting : BOOLEAN;
parentNode : TTreeNode;
currNode : TTreeNode;
currText, hrefText, srcText : String;
deltaTime : INTEGER;
lineCount, lineCountTick : INTEGER;
{-------------------------
procedure TestForLink(ts : String; VAR cnt : INTEGER);
var hrefPos : INTEGER;
begin
currText := UpperCase(ts);
IF (Pos('<A',currText) = 1) THEN
BEGIN
hrefPos := Pos('HREF="',currText);
IF (hrefPos > 0) THEN
BEGIN
Delete(ts,1,hrefPos+5);
hrefPos := Pos('"',ts);
currText := UpperCase(ts);
IF (hrefPos > 0)
{AND (Pos('.JPG',currText) = Length(currText)-5)} THEN
BEGIN
hrefText := Copy(ts,1,hrefPos-1);
ListBoxLinks.Items.Add('Li
INC(cnt);
END {IF};
END {IF};
END {IF};
end {TestForLink};
{-------------------------
procedure TestForImage(ts : String; VAR cnt : INTEGER);
var srcPos : INTEGER;
begin
currText := UpperCase(ts);
IF (Pos('<IMG',currText) = 1) THEN
BEGIN
srcPos := Pos('SRC="',currText);
IF (srcPos > 0) THEN
BEGIN
Delete(ts,1,srcPos+4);
srcPos := Pos('"',ts);
currText := UpperCase(ts);
IF (srcPos > 0)
{AND (Pos('.JPG',currText) = Length(currText)-5)} THEN
BEGIN
srcText := Copy(ts,1,srcPos-1);
ListBoxLinks.Items.Add('Im
INC(cnt);
END {IF};
END {IF};
END {IF};
end {TestForImage};
{-------------------------
begin {Parse1Click}
startTime := Now;
rootNode.Text := EditURL.Text;
parentNode := rootNode;
ListBoxLinks.Items.Clear;
linkCount := 0;
WITH MemoRawHTML DO BEGIN
lc := Lines.Count;
lineCount := lc;
lineCountTick := LineCount DIV 20;
collecting := FALSE;
t := ''; d := '';
TreeViewParsed.Visible := FALSE;
ListBoxLinks.Visible := FALSE;
FOR il := 0 TO lc-1
DO BEGIN
s := Lines[il];
// StatusBar.SimpleText := s;
FOR ic := 1 TO Length(s) DO
BEGIN
IF s[ic] = '<'
THEN BEGIN
collecting := TRUE;
WITH TreeViewParsed.Items DO
IF d <> '' THEN BEGIN
AddChild(parentNode,d);
TestForLink(d,linkCount);
TestForImage(d,linkCount);
END {IF};
d := '';
END {IF};
IF NOT collecting THEN d := d+s[ic];
IF collecting THEN t := t+s[ic];
IF s[ic] = '>'
THEN BEGIN
collecting := FALSE;
WITH TreeViewParsed.Items DO
BEGIN
IF Pos('</',t) = 1
THEN AddChild(parentNode,t)
ELSE parentNode := Add(rootNode,t);
TestForLink(t,linkCount);
TestForImage(t,linkCount);
END {WITH };
t := '';
END {IF};
IF (linkCount >= StrToInt(EditLinkLimit.Tex
END {FOR};
IF ((il MOD lineCountTick) = 0) THEN
BEGIN
ProgressBar1.Position := (il * 100 DIV lineCount);
END {IF};
END {FOR};
ListBoxLinks.Visible := TRUE;
TreeViewParsed.Visible := TRUE;
END {WITH };
endTime := Now;
deltaTime := SecondsBetween(startTime,e
StatusBar.SimpleText := Format('Done parse in %d seconds',[deltaTime]);
MemoDiag.Lines.Add(StatusB
// TreeView1.FullExpand;
end {Parse1Click};
{=========================
procedure TLGForm.Parse1Click(Sender
VAR
il, ic, lc, lb, rb, linkCount : INTEGER;
s, t, d : String;
collecting : BOOLEAN;
parentNode : TTreeNode;
currNode : TTreeNode;
currText, hrefText, srcText : String;
deltaTime : INTEGER;
lineCount, lineCountTick : INTEGER;
{-------------------------
procedure TestForLink(ts : String; VAR cnt : INTEGER);
var hrefPos : INTEGER;
begin
currText := UpperCase(ts);
IF (Pos('<A',currText) = 1) THEN
BEGIN
hrefPos := Pos('HREF="',currText);
IF (hrefPos > 0) THEN
BEGIN
Delete(ts,1,hrefPos+5);
hrefPos := Pos('"',ts);
currText := UpperCase(ts);
IF (hrefPos > 0)
{AND (Pos('.JPG',currText) = Length(currText)-5)} THEN
BEGIN
hrefText := Copy(ts,1,hrefPos-1);
ListBoxLinks.Items.Add('Li
INC(cnt);
END {IF};
END {IF};
END {IF};
end {TestForLink};
{-------------------------
procedure TestForImage(ts : String; VAR cnt : INTEGER);
var srcPos : INTEGER;
begin
currText := UpperCase(ts);
IF (Pos('<IMG',currText) = 1) THEN
BEGIN
srcPos := Pos('SRC="',currText);
IF (srcPos > 0) THEN
BEGIN
Delete(ts,1,srcPos+4);
srcPos := Pos('"',ts);
currText := UpperCase(ts);
IF (srcPos > 0)
{AND (Pos('.JPG',currText) = Length(currText)-5)} THEN
BEGIN
srcText := Copy(ts,1,srcPos-1);
ListBoxLinks.Items.Add('Im
INC(cnt);
END {IF};
END {IF};
END {IF};
end {TestForImage};
{-------------------------
begin {Parse1Click}
startTime := Now;
rootNode.Text := EditURL.Text;
parentNode := rootNode;
ListBoxLinks.Items.Clear;
linkCount := 0;
WITH MemoRawHTML DO BEGIN
lc := Lines.Count;
lineCount := lc;
lineCountTick := LineCount DIV 20;
collecting := FALSE;
t := ''; d := '';
TreeViewParsed.Visible := FALSE;
ListBoxLinks.Visible := FALSE;
FOR il := 0 TO lc-1
DO BEGIN
s := Lines[il];
// StatusBar.SimpleText := s;
FOR ic := 1 TO Length(s) DO
BEGIN
IF s[ic] = '<'
THEN BEGIN
collecting := TRUE;
WITH TreeViewParsed.Items DO
IF d <> '' THEN BEGIN
AddChild(parentNode,d);
TestForLink(d,linkCount);
TestForImage(d,linkCount);
END {IF};
d := '';
END {IF};
IF NOT collecting THEN d := d+s[ic];
IF collecting THEN t := t+s[ic];
IF s[ic] = '>'
THEN BEGIN
collecting := FALSE;
WITH TreeViewParsed.Items DO
BEGIN
IF Pos('</',t) = 1
THEN AddChild(parentNode,t)
ELSE parentNode := Add(rootNode,t);
TestForLink(t,linkCount);
TestForImage(t,linkCount);
END {WITH };
t := '';
END {IF};
IF (linkCount >= StrToInt(EditLinkLimit.Tex
END {FOR};
IF ((il MOD lineCountTick) = 0) THEN
BEGIN
ProgressBar1.Position := (il * 100 DIV lineCount);
END {IF};
END {FOR};
ListBoxLinks.Visible := TRUE;
TreeViewParsed.Visible := TRUE;
END {WITH };
endTime := Now;
deltaTime := SecondsBetween(startTime,e
StatusBar.SimpleText := Format('Done parse in %d seconds',[deltaTime]);
MemoDiag.Lines.Add(StatusB
// TreeView1.FullExpand;
end {Parse1Click};
sftweng,
I'm using Delphi 7 and cannot Complie the Project!
1. have no FastNet (NMHTTP) Components,
2. I have't the JVCL
I'm using Delphi 7 and cannot Complie the Project!
1. have no FastNet (NMHTTP) Components,
2. I have't the JVCL
I'll have to check carefully but I don't think you need them. Just write a program that puts your HTML into a string, passes it into the procedure (Parse1Click) and stores or uses the results.
Concentrate on the "TestFor" procedures and just pass them HTML strings from whatever source you choose.
Concentrate on the "TestFor" procedures and just pass them HTML strings from whatever source you choose.
sorry cannot understant how to get it work!
Could you send me the project to admin@titaniumserver.de
thanks
k4hvd77
Could you send me the project to admin@titaniumserver.de
thanks
k4hvd77
k4hvd77, Ex-Ex rules don't allow me to use email. You should have been able to download the original project from the URL I posted earlier and then to cut-and-paste the replacement code frommy earlier posting. I'd like to help you on this, but I'm prevented by Ex-Ex rules from using email correspondence.
But if you don't have the NMHTTP and JVCL components, anyway, you should just take the source code for "Parse1Click", written above, and remove all of the component references, e.g., an edit box, treenode and listbox, and replace them with string equivalents.
The core of the code is the "TestFor" procedures - just feed them HTML lines, acquired from whatever source you like, and feed the results (added via Listbox.Add) back to the client (caller) software.
But if you don't have the NMHTTP and JVCL components, anyway, you should just take the source code for "Parse1Click", written above, and remove all of the component references, e.g., an edit box, treenode and listbox, and replace them with string equivalents.
The core of the code is the "TestFor" procedures - just feed them HTML lines, acquired from whatever source you like, and feed the results (added via Listbox.Add) back to the client (caller) software.
k4hvd77, when I said "you should have been able to", I meant no criticism and I recognize the fact that we are dealing with different versions of Delphi (6 & 7) and libraries. My intention was to focus on the key software, the "TestFor" procedure, which should be more portable than the rest of the application.
I do recommend, however, that yu take a good look at using (at least), the JCL and JVCL components, available from http://www.jedi-delphi.org
Good luck, and do, please, continue to ask questions - I'll be pleased to help.
I do recommend, however, that yu take a good look at using (at least), the JCL and JVCL components, available from http://www.jedi-delphi.org
Good luck, and do, please, continue to ask questions - I'll be pleased to help.
Sorry, that should be http://delphi-jedi.org.
Featured Post
We value your feedback.
Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!
Question has a verified solution.
If you are experiencing a similar issue, please ask a related question
In this tutorial I will show you how to use the Windows Speech API in Delphi. I will only cover basic functions such as text to speech and controlling the speed of the speech.
SAPI Installation
First you need to install the SAPI type library, th…
In my programming career I have only very rarely run into situations where operator overloading would be of any use in my work. Normally those situations involved math with either overly large numbers (hundreds of thousands of digits or accuracy re…
NetCrunch network monitor is a highly extensive platform for network monitoring and alert generation. In this video you'll see a live demo of NetCrunch with most notable features explained in a walk-through manner. You'll also get to know the philos…
Monitoring a network: why having a policy is the best policy? Michael Kulchisky, MCSE, MCSA, MCP, VTSP, VSP, CCSP outlines the enormous benefits of having a policy-based approach when monitoring medium and large networks. Software utilized in this v…
Suggested Courses
Course of the Month8 days, 8 hours left to enroll
Earn Certification
CompTIA IT Fundamentals
$49.00$44.10
734 members asked questions and received personalized solutions in the past 7 days.
Join the community of 500,000 technology professionals and ask your questions.