[Delphi]How een link uit clipboard te openen

[Yagermeister]

ik zit met volgende probleem:

Ik heb een proggie gemaakt dat .NFO opent en het in het terminal font laat zien.
Ook copyed mijn proggie automatisch elk willekeurig stuk tekst (als maar geselecteerd wordt).

Wat ik nu wil is dat als ik een html link selecteer dat hij hem automatich opent in een webbrowser window ook in proggie (WebBrowser1)

ik gebruik de volgende code (gedeeltelijk werkend)


procedure TForm2.Memo1Click(Sender: TObject);
var
Line: Integer;
begin
with (Sender as TMemo) do
try
begin
if 'http:' then
begin
Webbrowser1.Show := Edit1.Text;
end
else
begin
Edit1.Text := Memo1.SelText;
Edit1.Selectall;
Edit1.CopyToClipboard;
end;
end;
except;
end;
end;


Nu krijg ik nog de volgende fout meldingen van de bovenstaande code:

[Error] NfoU.pas(71): Type of expression must be BOOLEAN
deze error duid op dit stukje -> if 'http:' then

[Error] NfoU.pas(73): Left side cannot be assigned to
deze error duid op dit stukje -> Webbrowser1.Show := Edit1.Text;


Weet iemand hoe ik dit kan oplossen zodat ik als ik een url selecteer(in mijn viewer wat in app zit) dat hij die automatisch opent in een webbrowser window ook in proggie


voor de mensen wat bovenstaande code niet goed kunnen lezen hier nog eens

code:

procedure TForm2.Memo1Click(Sender: TObject);
var
  Line: Integer;
begin
  with (Sender as TMemo) do
  try
    begin
      if 'http:' then
        begin
          Webbrowser1.Show := Edit1.Text;
        end
      else
        begin
          Edit1.Text := Memo1.SelText;
          Edit1.Selectall;
          Edit1.CopyToClipboard;
        end;
      end;
  except;
 end;
end;

[Knutselsmurf]

Na de 'if' wordt een boolean-expressie verwacht. Ik hoop dat je ziet dat 'http:' geen boolean-expressie is. Wat je bijvoorbeeld zou kunnen doen is het volgende:

if copy(invoer,1,5)='http:' then.....

[Creepy]

en webBrowser.show toont de webbrowser op het form (.hide verbergt hem).

.show is een method en geen propertie, dus is deze ook niet toe te kennen.
Pak er eens een Delphi tutorial bij zou ik zeggen. Daar worden dit soort dingen in uitgelegd. Elke willekeurige tutorial over programmeren kan je ook het 1 en ander leren over het gebruik van IF's e.d.

[Yagermeister]

ik heb er een tutorial van maar daar staat niet in hoe ik dit aan het werken krijg ik heb er wel veel andere info uit gekregen (ja ik weet ik ben niet elite @ delphi) maar wat ik niet helemaal snap is dat van dat boolean

[Knutselsmurf]

Yagermeister schreef op 13 oktober 2002 @ 21:33:
ik heb er een tutorial van maar daar staat niet in hoe ik dit aan het werken krijg ik heb er wel veel andere info uit gekregen (ja ik weet ik ben niet elite @ delphi) maar wat ik niet helemaal snap is dat van dat boolean

In dat geval kan ik je aanbevelen om toch eens een boek erbij te pakken over Pascal/Delphi/iedere willekeurige programmeertaal en daar eens te gaan lezen in het hoofdstuk over types. Een boolean is toch wel een heel standaard type waarvan iedere programmeur op de hoogte hoort te zijn. Simpelweg omdat alle beslissingen, zoals een if-statement, genomen worden aan de hand van boolean-berekeningen.

[Yagermeister]

ik denk dat ik iets dergelijks heb gevonden in boekje(basis cursus delphi 6) namelijk:

VAR
A: Interger;
B: Boolean;
...
A := 1;
B:= (A = 1);
if B then ...

nu moet ik alleen dat zien aan te passen zodat a het gecopyed stukje wordt
en dat het als het html erin staat dat het opent in een webbrowser window

ik denk dat het iets als dit moet worden :

VAR
A: Interger;
B: Boolean;
...
A := HTML;
B:= (A = HTML);
if B then ...

(denk ik)

[Marv]

Wat probeer je nu precies bij:

Delphi:

if 'http:' then

Als 'http:' dan

[Yagermeister]

wat ik probeer is dat hij ziet dat er http staat en als het er staat dat hij het in een webbrowser opent in zelfde proggie (ik wist ff niks beters) anders moet hij gewoon copyen en niks anders doen

[Marv]

Delphi:

procedure TForm1.Memo1Click(Sender: TObject);
begin
  if Trim(Memo1.SelText)<>'' then
  begin
    Edit1.Text := Memo1.SelText;
    if Copy(Edit1.Text,0,5)='http:' then
    begin
      WebBrowser1.Navigate(Edit1.Text);
    end
    else
    begin
      Edit1.Selectall;
      Edit1.CopyToClipboard;
    end;
  end;
end;

Probeer dit eens... werkt trouwens niet als je selecteert en pas buiten het memo veld loslaat. (en werkt alleen als de eerste 5 letters precies gelijk zijn aan 'http:')

[Yagermeister]

ff testen brb

edit:

WERKT

nu kan ik weer verder met rest ervan

[ Voor 0% gewijzigd door Yagermeister op 13-10-2002 22:05 . Reden: Opgelost ]

[Marv]

Yagermeister schreef op 13 oktober 2002 @ 22:03:
ff testen brb

edit:

WERKT

nu kan ik weer verder met rest ervan

Tis misschien ook handig als je even bekijkt HOE het nu werkt.... leer je er zelf ook nog wat van

[Yagermeister]

btw marv werkt het wel als ik bijv : HTTP: heb in plaats van http: of maakt hij daar geen verschil in?


(volgende project is het automatisch openen van url bij openen van een nfo )

edit:

ik zal ff probere uit te leggen misschien dat ik het voor grootste gedeelte snap

[Marv]

Yagermeister schreef op 13 oktober 2002 @ 22:15:
btw marv werkt het wel als ik bijv : HTTP: heb in plaats van http: of maakt hij daar geen verschil in?


(volgende project is het automatisch openen van url bij openen van een nfo )

edit:

ik zal ff probere uit te leggen misschien dat ik het voor grootste gedeelte snap

Delphi:

if LowerCase(Copy(Edit1.Text,0,5))='http:' then

Zo maakt ie van de hele string lowercase (kleine letters dus) en werkt ie zelfs als de http zo geschreven staat: hTtP:

[Yagermeister]

code:

procedure TForm1.Memo1Click(Sender: TObject);          //als je iets selecteert 
begin
  if Trim(Memo1.SelText)<>'' then
  begin
    Edit1.Text := Memo1.SelText;                      //de tekst wat hij moet copyen van memo1 naar edit1
    if Copy(Edit1.Text,0,5)='http:' then              //(niet zeker) als er http: in staat dan
    begin
      WebBrowser1.Navigate(Edit1.Text);               // open je de link in webbrowser1
    end
    else                                              // anders copy je het gewoon (ook de link staat gewoon in clipboard)
    begin
      Edit1.Selectall;                                //selecteer alles van edit1
      Edit1.CopyToClipboard;                          //copy edit1 inhoud(selectie)
    end;
  end;
end;

(het trim stukje snap ik wel niet helemaal)

ik denk dat het zo inelkaar zit klopt dit ongeveer?

[Marv]

Yagermeister schreef op 13 oktober 2002 @ 22:22:

code:

procedure TForm1.Memo1Click(Sender: TObject);          //als je op je memo klikt 
begin
  if Trim(Memo1.SelText)<>'' then                     //als de geselecteerde tekst (zonder spaties) ongelijk is aan niets dan
  begin
    Edit1.Text := Memo1.SelText;                      //Edit1.text wordt gelijk aan de geselecteerde tekst
    if Copy(Edit1.Text,0,5)='http:' then              //als de eerste 5 letters van edit1.text http: zijn dan
    begin
      WebBrowser1.Navigate(Edit1.Text);               // open je de link in webbrowser1
    end
    else                                              // anders copy je het gewoon (ook de link staat gewoon in clipboard)
    begin
      Edit1.Selectall;                                //selecteer alles van edit1
      Edit1.CopyToClipboard;                          //copy edit1 inhoud(selectie)
    end;
  end;
end;

(het trim stukje snap ik wel niet helemaal)

ik denk dat het zo inelkaar zit klopt dit ongeveer?

Even een klein beetje commentaar aangepast.
Trim verwijdert alle lege ruimtes in je geselecteerde tekst... voor als je dit selecteert:

code:

    http://www.tweakers.net

Hij gaat dus alleen verder als er letters geselecteerd zijn.
(delphi heeft trouwens een heel uitgebreide help )

[Yagermeister]

ik weet van de help van delphi maar ik wist niet precies waar ik heen was aan het zoeken maar nu snap ik het gedeelte wel (alleen commentaar was beetje anders ).

Nu moet ik alleen het zien te maken dat hij bij openen van .NFO meteen kijkt of er een url instaat en zo ja dat hij me die opent (ik heb een idee hoe ik dit oplos stay tuned for more )

[Marv]

Als er een url geselecteerd wordt gaat ie trouwens de url niet naar het clipboard kopieëren.

Delphi:

if Copy(Edit1.Text,0,5)='http:' then
  WebBrowser1.Navigate(Edit1.Text);
else
  begin
    Edit1.Selectall;
    Edit1.CopyToClipboard;
  end;

Het 2e gedeelte wordt alleen uitgevoerd als de geselecteerd tekst geen url is.

Als je de tekst zowieso wilt kopieëren naar het clipboard moet je de else (en begin & end) verwijderen.

Delphi:

if Copy(Edit1.Text,0,5)='http:' then
  WebBrowser1.Navigate(Edit1.Text); //begin en end kunnen hier weg omdat er na de if maar 1 statement komt.

Edit1.Selectall; //dit valt dus buiten de 'if'
Edit1.CopyToClipboard;

Als er na de if maar 1 statement komt hoef je er geen begin/end bij te zetten.

Yagermeister schreef op 13 oktober 2002 @ 22:33:
Dit is btw mijn eerste echte proggie met Delphi en ik heb het bijna helemaal(op dit stukje na) opgelost met de hulp en het boekje ervan .

Nu heb ik wel een aai over mijn bol verdient

* Marv aait Yagermeister over de bol

[Yagermeister]

Dit is btw mijn eerste echte proggie met Delphi en ik heb het bijna helemaal(op dit stukje na) opgelost met de hulp en het boekje ervan .

Nu heb ik wel een aai over mijn bol verdient

[Yagermeister]

misschien ff een stomme vraag maar hij copyed nu wel de html link mee maar wel met de spacies erin hoe krij ik die weg ik ben nu aan het proberen met trim ook maar werkt niet echt hij blijft gewoon die spacies erin zetten

[Marv]

Yagermeister schreef op 13 oktober 2002 @ 22:39:
misschien ff een stomme vraag maar hij copyed nu wel de html link mee maar wel met de spacies erin hoe krij ik die weg ik ben nu aan het proberen met trim ook maar werkt niet echt hij blijft gewoon die spacies erin zetten

Werkt dit niet?

Delphi:

    Edit1.Text := Trim(Memo1.SelText);

[Yagermeister]

Marv schreef op 13 oktober 2002 @ 23:15:
[...]


Werkt dit niet?

Delphi:

    Edit1.Text := Trim(Memo1.SelText);

nee dat had ik ook al geprobeerd maar om de een of andere reden blijft hij de spacies in de link weergeven hier is de code van nu:

Delphi:

procedure TForm2.Memo1Click(Sender: TObject);  //als je op je memo klikt
begin
  if Trim(Memo1.SelText)<>'' then  //als de geselecteerde tekst (zonder spaties) ongelijk is aan niets dan
  begin
    Edit1.Text := Trim(Memo1.SelText);  //Edit1.text wordt gelijk aan de (getrimde) geselecteerde tekst
    if LowerCase(Copy(Edit1.Text,0,5))='http:' then  //als de eerste 5 letters van edit1.text http: zijn dan
    begin
      WebBrowser1.Navigate(Edit1.Text);  // open je de link in webbrowser1
      Edit1.Selectall;  //selecteer alles van edit1
      Edit1.CopyToClipboard;  //copy edit1 inhoud(selectie)
    end;
  end;
end;

[LordLarry]

Dit begint meer en meer op een script request te lijken IMHO. Je moet er toch echt zelf nu maar eens naar kijken en als je er niet uitkomt is dit duidelijk boven je pet. Ga dan eerst maar eens een goed boek zoeken over pascal. Dit is echt allemaal erg basic hoor.

[Yagermeister]

LordLarry schreef op 14 oktober 2002 @ 11:23:
Dit begint meer en meer op een script request te lijken IMHO. Je moet er toch echt zelf nu maar eens naar kijken en als je er niet uitkomt is dit duidelijk boven je pet. Ga dan eerst maar eens een goed boek zoeken over pascal. Dit is echt allemaal erg basic hoor.

ten eerste dit is geen script request tot nu toe is dit het enigste waar ik help bij nodig heb van het hele proggie en ten tweede het is Delphi en niet pascal

nofi

[Marv]

Yagermeister schreef op 14 oktober 2002 @ 16:07:
...en ten tweede het is Delphi en niet pascal

nofi

Delphi = object pascal

nofi

[Yagermeister]

Marv schreef op 14 oktober 2002 @ 16:33:
[...]


Delphi = object pascal

nofi

zo ver was ik nog niet

maar hij doet nog altijd die duffe spacies mee copyen met de url die ik selecteer en die bovenstaande code doet hetzelfde

dit heb ik ook nog geprobeerd

Delphi:

procedure TForm2.Memo1Click(Sender: TObject);  //als je op je memo klikt
begin
  if Trim(Memo1.SelText)<>'' then  //als de geselecteerde tekst (zonder spaties) ongelijk is aan niets dan
  begin
    Edit1.Text := Trim(Memo1.SelText);  //Edit1.text wordt gelijk aan de geselecteerde tekst
    if LowerCase(Copy(Edit1.Text,0,5))='http:' then  //als de eerste 5 letters van edit1.text http: zijn dan
      begin
        if TrimRight(Edit1.Text)<> '' then
        begin
          WebBrowser1.Navigate(Edit1.Text);  // open je de link in webbrowser1
          Edit1.Selectall;  //selecteer alles van edit1
          Edit1.CopyToClipboard;  //copy edit1 inhoud(selectie)
        end;
      end;
  end;
end;

hij wil wel de link copyen (en openen) maar hij haalt bij het copyen niet de spacies weg ertussen maar wel weer bij het viewen bijv:

http://gathering.tweakers.net/forum/
update_message/15559426

hier maakt hij bij viewen in browser de goede link van zonder de spacies ertussen maar bij copyen blijft hij koppig die spacies ertussen duwen

[Creepy]

En natuurlijk had je in de help al gevonden dat bij het indexeren van strings in Delphi je bij 1 begint te tellen en niet bij 0.

Ow.. ennuh.. Delphi <> Object Pascal. Delphi maakt gebruik van de taal object Pascal. Delphi = IDE + Object Pascal (+VCL). Nofi

[Yagermeister]

Creepy schreef op 14 oktober 2002 @ 17:05:
En natuurlijk had je in de help al gevonden dat bij het indexeren van strings in Delphi je bij 1 begint te tellen en niet bij 0.

Ow.. ennuh.. Delphi <> Object Pascal. Delphi maakt gebruik van de taal object Pascal. Delphi = IDE + Object Pascal (+VCL). Nofi

Ik neem aan dat je doelt op : if LowerCase(Copy(Edit1.Text,0,5))='http:' then

Maar daar zit de fout niet dat werkt allemaal de fout zit hem in het stukje wat hij in mijn edit box moet hebben gecopyed daar blijft hij spacies erbij hebben(zoals ook in .NFO staat) maar bij de url viewer haalt hij ze wel weg.

Ik moet dus hebben dat hij aanhoudt wat de url viewer doet (de spacies weghalen)

[Yagermeister]

ik denk dat ik een idee heb brb

edit:


Werkt niet :

wat ik geprobeerd heb is de gestripte url ofwel de goede url uit de webbrowser te extracten die in een tweede edit box te zetten en die te copyen maar toen deed de hele url en alles nog niks

[LordLarry]

Yagermeister schreef op 14 oktober 2002 @ 16:07:
[...]


ten eerste dit is geen script request tot nu toe is dit het enigste waar ik help bij nodig heb van het hele proggie en ten tweede het is Delphi en niet pascal

nofi

Maar het is allemaal erg basic programmeren (niet eens specifiek pascal) en je vraagt bij elke stap hulp. Het heeft geen zin om je bij elk stapje aan de hand te houden. Je zal dan toch weer bij de eerst volgende stap omvallen.

[LordLarry]

Creepy schreef op 14 oktober 2002 @ 17:05:
En natuurlijk had je in de help al gevonden dat bij het indexeren van strings in Delphi je bij 1 begint te tellen en niet bij 0.

Ow.. ennuh.. Delphi <> Object Pascal. Delphi maakt gebruik van de taal object Pascal. Delphi = IDE + Object Pascal (+VCL). Nofi

Sinds Delphi 7 is de taal Object Pascal naar Delphi hernoemd

[Creepy]

LordLarry schreef op 14 oktober 2002 @ 17:26:
[...]


Sinds Delphi 7 is de taal Object Pascal naar Delphi hernoemd

You got me there

_{* Creepy gebruikt nog Delphi 5 & 6}

[Creepy]

Yagermeister schreef op 14 oktober 2002 @ 17:15:
[...]


Ik neem aan dat je doelt op : if LowerCase(Copy(Edit1.Text,0,5))='http:' then

Maar daar zit de fout niet dat werkt allemaal de fout zit hem in het stukje wat hij in mijn edit box moet hebben gecopyed daar blijft hij spacies erbij hebben(zoals ook in .NFO staat) maar bij de url viewer haalt hij ze wel weg.

Ik moet dus hebben dat hij aanhoudt wat de url viewer doet (de spacies weghalen)

Neemt niet weg dat je nu een teken teveel meeneemt nu (ook al hoe je die niet ze zien).
En ben het daarnaast ook met LordLarry eens dat het nu een "aan het handje houdt" topic wordt.

[Yagermeister]

LordLarry schreef op 14 oktober 2002 @ 17:25:
[...]


Maar het is allemaal erg basic programmeren (niet eens specifiek pascal) en je vraagt bij elke stap hulp. Het heeft geen zin om je bij elk stapje aan de hand te houden. Je zal dan toch weer bij de eerst volgende stap omvallen.

close dit topic liever maar heeft niet veel zin om hiervan te leren

nofi

[.oisyn]

zie reacties van Creepy en LordLarry, je mag echt wel zelf wat meer moeite doen, ipv elke vraag hier te stellen

en hou op met dat nofi, das behoorlijk irritant