[Open-Source]Programm zum Link-Quelltext erstellen

[dajuhsa]

ich hab mir ein (ziemlich) kleines Tool gebastelt, um Den Code eines Links rauszufinden.

Der Nutzwert is jetz nich soooo groß, aber für leute, die sich mit html nich auskennen ist es glaube ich ganz praktisch.

Es besteht eigentlich nur aus dem kleinsten Tool-Window der Welt und 5 Dialogen.

bitte testen und sagen wie ihr es findet (aber nur wenn ihr es gut findet )

[Tommy1988]

ich hab jezt den code nicht da.. ich machs mal primitiv:

Delphi-Quellcode:

uses Clipbrd;
.
.
.
vWert := teil1+teil2+teil3;
Clipboard.AsText := vWert;

Du kannst auch:
Clipboard.AsText := teil1+teil2+teil3; machen aber ich finde das erste besser

Edit:
versuche gleich mal den verbesserungsvoeschlag anzunehmen und stelle den source ein.

[Matze]

Zitat von dajuhsa:

hab ich versucht, aber wie kopiert man den string-text in die zwischenablage?

Na viel einfacher und zwar so:

Delphi-Quellcode:

uses Clipbrd;

...

Clipboard.AsText := 'Text';

[dajuhsa]

Zitat von mr.winkle:

Das "Klicken, um die Webseite zu besuchen" funktioniert bei mir nicht. Noch ein Verbesserungsvorschlag: Wenn der Benutzer z.B. www.google.de eingibt, sollte im Link nachher "http://www.google.de" stehen

wieso? www.google.de geht doch auch.

Zitat:

ich hab jezt den code nicht da.. ich machs mal primitiv:

Delphi-Quellcode: markieren
uses Clipbrd;
.
.
.
vWert := teil1+teil2+teil3;
Clipboard.AsText := vWert;



Du kannst auch:
Delphi-Quellcode: markieren
Clipboard.AsText := teil1+teil2+teil3;


machen aber ich finde das erste besser

Danke, das wusste ich nicht

[Tommy1988]

Das mit dem HTTP kriege ich nicht hin.. null ahnung wie das gehn soll.. meine versuche klapten nicht

[dajuhsa]

guck dir mal meine function URLGültig an, damit müsste doch was anzufangen sein, oder nicht?

[Tommy1988]

Aso..
ich hab das ganz anders versucht.. aber jetzt ist es richtig:

Delphi-Quellcode:

  if ((URL[1]='h') and (URL[2]='t') and (URL[3]='t') and
     (URL[4]='p') and (URL[5]=':') and (URL[6]='/') and
     (URL[7]='/')) and
     ((URL[8]='w') and (URL[9]='w') and (URL[10]='w') and
     (URL[11]='.')) then
    result := true;

[Matze]

Zitat von Tommy1988:

Aso..
ich hab das ganz anders versucht.. aber jetzt ist es richtig:

Delphi-Quellcode:

  if ((URL[1]='h') and (URL[2]='t') and (URL[3]='t') and
     (URL[4]='p') and (URL[5]=':') and (URL[6]='/') and
     (URL[7]='/')) and
     ((URL[8]='w') and (URL[9]='w') and (URL[10]='w') and
     (URL[11]='.')) then
    result := true;

Wie geil Sorry, find's so lustig, bitte nicht übel nehmen.
Einfacher geht es so:

if Pos('http://www.', URL) = 1 then Aber du musst bedenken, Subdomains oder IPs zu Beginn einer URL haben kein "www.". Evtl. soll man auch über ftp:// etwas einbinden können, das ginge ja auch.

[Tommy1988]

@ Matze

Der Code kommt nicht von MIR sondern vom Threadersteller

Wie meinst du das mit deinem Codestück?

Kontext?

[dajuhsa]

ja das war mein code, wusst nicht dass das mit pos geht

[Matze]

@Tommy: Find's trotzdem lustig, aber man muss natürlich dazulernen und für den Anfang eine funktionierende, wenn auch nicht allzu schöne Lösung. Mein Code ersetzt den obigen, mehr macht er nicht -> OH fragen, was Pos macht.

@dajuhsa: Jupp, das ist ja nicht schlimm, nun weißt du's.