Yahoo turned into Bing overnight All while I was working…

Yahoo Is Bing

Yahoo Is Bing


Yahoo’s results are pretty much looking like they were spit out by Bing. Which probably isn’t a bad thing. Hmmm… that rhymes.

Looks like the integration between Yahoo and Bing is getting much tighter, and the Bing results with showing more images, and related information is showing up. I personally have mixed emotions concerning that as your can read in this post.

Posted in Oh Boy SEO, Thoughtful Indiscretions | Tagged , , | Leave a comment

Apparently, I’m a new Millionaire!

Here’s a nice little scam email. I had know idea I was going to get rich today. I’m sure glad that someone gave them my email address where I could be contacted! How lucky I am to receive the good news~! If I hadn’t gotten this message, I don’t know what I would have done!

EURO MILLIONES LOTTERY BOARD.

REF. NUMBER: EULOTTO/0208/ESP/003
BATCH NUMBER: 2010/AXN/30_46
EMAIL: info@nospam.music-city.nospam.net

Dear Email Client,

This is to notify you that your email address shown above has won the EURO MILLIONES LOTTERY
Online Computer ballot draw that was hosted in Madrid Spain. You have been awarded the prize
of €815,000 (EIGHT HUNDRED AND FIFTEEN THOUSAND EUROS) with the Winning information listed above.

If you are the accredited owner of this email address [ info@music-city.net ], please contact the appointed agent
company (LUNAX GESTION S. A.) with the below requirements including the winning datas above.

1. Fulnames
2. Telephone number
3. Mobile number
4. Fax number
5. Country

LUNAX GESTION S. A.
MR. MURCIANO GUTIERREZ (claim officer)
TEL: +34 698-344-600
FAX: +34 911-820-312
Email: lunaxgestion@luckymail.com or lunaxgestion@terra.es

All information will be strictly verified by your agent before payment will be carried out. You are
hereby obligated abide to instructions from your agent to avoid processing errors.

Congratulations once again from our board of Directors.

Mrs. Luis Fernando Campos
EURO MILLIONES BOARD.
Madrid, 2nd October. 2010.

****************************************************************************************
This email is confidential and is intended solely for the person or Entity that own this
email address [ info@nospam.music-city.nospam.net ]. If you have received this message in error, we inform you that the
content in it is reserved and unauthorized use is prohibited by law, therefore, please
notify us by e-mail.
****************************************************************************************

No virus found in this incoming message.
Checked by AVG – www.avg.com
Version: 9.0.856 / Virus Database: 271.1.1/3171 – Release Date: 10/01/10 13:34:00

Posted in Thoughtful Indiscretions | Tagged , , | Leave a comment

The Real Way to Show XML in Delphi TreeView

I know if you’ve finally gotten to this post, you will really, really be appreciative for this Delphi Tip. I’m going to show you how to simply show the contents of a valid XML file in a standard Delphi TTreeView… (With TXMLDocument) I searched a lot of Delphi resources on the Internet to try and find a way to easily show the contents of an XML document in a tree view, but wound up there just isn’t that many resources. I then remembered I had solved this problem a couple years ago in an application that was quietly biding it’s time on my hard drive. So enjoy, and you can please comment about this awesome tip.

———————————————————————————
procedure TForm1.DOMShow(ATree: TTreeView; Anode: IXMLNode; TNode: TTreeNode);
var
I: Integer;
NTNode: TTreeNode;
NText: string;
AttrNode: IXMLNode;
begin

if not (Anode.NodeType = ntElement) then
Exit;

NText := ‘<' + UpperCase(Anode.NodeName) + ‘>’;

if Anode.IsTextElement then
NText := NText +=+ Anode.NodeValue;
NTNode := ATree.Items.AddChild(TNode, NText);

// NTNode.ImageIndex := 190;

for I := 0 to Anode.AttributeNodes.Count - 1 do

begin
Application.ProcessMessages;
AttrNode := Anode.AttributeNodes.Nodes[I];
// NTNode.ImageIndex := 188;
ATree.Items.AddChild(NTNode,
// AttrNode.NodeName += “‘ + AttrNode.Text + ‘”‘);
AttrNode.Text);
end;

if Anode.HasChildNodes then
for I := 0 to Anode.ChildNodes.Count - 1 do begin
Application.ProcessMessages;
DOMShow(Atree, Anode.ChildNodes.Nodes [I], NTNode);

end;
Atree.FullExpand;

end;

procedure TForm1.Button1Click(Sender: TObject);
begin
if OpenDialog1.Execute then begin
XMLDocument1.FileName := OpenDialog1.FileName;
XMLDocument1.Active := True;
DOMShow(TreeView1, XMLDocument1.DocumentElement, nil);
end;
———————————————————————————

Note: There’s some formatting in there you can easily remove, and adapt this Pascal to own your needs.

Posted in Delphi Tips & Code | Tagged , , , , | 2 Comments