Is your cloud always on? With an Always On cloud you won't have to worry about downtime for maintenance or software application code updates, ensuring that your bottom line isn't affected.
Course Of The Month
Become 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.
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 today
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
This article explains how to create forms/units independent of other forms/units object names in a delphi project.
Have you ever created a form for user input in a Delphi project and then had the need to have that same form in a other Delphi proj…
Hello everybody
This Article will show you how to validate number with TEdit control,
What's the TEdit control?
TEdit is a standard Windows edit control on a form, it allows to user to write, read and copy/paste single line of text.
Usua…
There are cases when e.g. an IT administrator wants to have full access and view into selected mailboxes on Exchange server, directly from his own email account in Outlook or Outlook Web Access. This proves useful when for example administrator want…
This tutorial will teach you the special effect of super speed similar to the fictional character Wally West aka "The Flash"
After Shake : http://www.videocopilot.net/presets/after_shake/
All lightning effects with instructions : http://www.mediaf…
Suggested Courses
Earn Certification
HTML5 Specialist - Certification
Free withPremium
Course of the Month7 days, 7 hours left to enroll
Earn Certification
CompTIA IT Fundamentals
$49.00$44.10
632 members asked questions and received personalized solutions in the past 7 days.
Join the community of 500,000 technology professionals and ask your questions.