Deling af IDsipatch mellem programmer

hvad gør du for at åbne den nye browser??? bare excuter din exe fil 2 gange???

/ZIRON

du kan da bare kalde den med en parameter

minbrowser.exe http://www.mysite.dk

if paramcount>0 then
  openbrowser(paramstr(1))

hehe qusse, det var også det jeg tænkte på :)

men kan man skulle have droppet det med at spørge først :)

/ZIRON

Hvordan henter jeg URL\'en der er klikket på?

Ja, jeg executer bare en instance mere af mit proggy... jeg har lavet så det acceptrer parametre...

hvad menere du???

/ZIRON

se et eks her:

www.ziron.dk/se_hvad_man_skriver.zip

/ZIRON

Jeg mener hvordan vedjeg i min WebBrowser1NewWindow2 hvilken URL der skal åbnes i den nye instance?

det er vel den som den står på i forvejen, laver  lige et eks... :)

/ZIRON

oki doki.... men det er når en link skal åbnes i et nyt vindue... så er det jo URL\'en af den link man klikker på og ikke den side man allerede er på...

arrr det er på den måde du vil gøre det på, hmmm så skal man jo ud og se hvad det er der bliver trykket på...

/ZIRON

I WebBrowser1NewWindow2 proceduren skal jeg stikke den en DefaultDispatch som er den IDispatch som den nye Browser har... Så virker det, men hvordan ved jeg hvad den er?

kigger lige, 2 sek...

/ZIRON

eller... det er omvendt... i proceduren skal jeg give den den nye browsers DefaultDispatch som en IDispatch...

du kan gører det liddt sådan her, men her er det ikke et nyt program som åbner, men bare en ny form, tænker stadig lige over den med program. men du kan selvfølgelig gører det på en let måde, men lidt fake...

procedure TForm1.WebBrowser1NewWindow2(Sender: TObject;
  var ppDisp: IDispatch; var Cancel: WordBool);
var
  dinnyeform : TForm1;
begin
  dinnyeform := TForm1.Create(Self);
  dinnyeform.Visible := true;
  ppdisp := dinnyeform.WebBrowser1.Application;
end;

/ZIRON

Det virker jo fint... og dog... kom lige i tanker om at det jo er en ny form... så hvis man lukker den første form... øvøv...

okay det ser ud til at det var noget du kunne bruge, mne jeg prøver lige at fikse det så det er et nyt program den åbner og ikke en form...

/ZIRON

hehe og jeg skrev det enda :)

/ZIRON

Hvad med den fuskede måde du nævnte?

ja det er det jeg sidder og leger med, men stener alt for meget. hmmm skal lige bruge en funktion som finder den url som man er på????


/ZIRON

hmmm meget underligt...

/ZIRON

så tror næsten at jeg har en løsning :)

/ZIRON

oki doki

det er min shellexecute og paramcount som ikke vil som jeg vil :(

/ZIRON

Det har jeh... jeg har shellexecute og proggyet accepter params...

okay smid lige det for mit det stener alt for meget...

/ZIRON

ShellExecute(Handle, \'open\', PChar(Application.ExeName), nil, nil, sw_ShowNormal);

if (ParamStr(1) = \'\') then WebBrowser1.GoHome else
begin
  Edit1.Text := ParamStr(1);
  Navigate;
end;

Ved det med params er det falske men det virker ;o)

hehe tror jeg har fundet ud af hvorfor den ikke vil hvise noget men, hmmm tænke tænke..

/ZIRON

ShellExecute(Handle, \'open\', PChar(Application.ExeName), {PARAMS}, nil, sw_ShowNormal);

procedure TForm1.Navigate;
begin
if (not DirectoryExists(Edit1.Text)) and
  (pos(\'ftp://\', LowerCase(Edit1.Text)) <> 1) and
  (pos(\'mailto:\', LowerCase(Edit1.Text)) <> 1) and
  (pos(\'file://\', LowerCase(Edit1.Text)) <> 1) then
WebBrowser1.Navigate(Edit1.Text);

if (pos(\'mailto:\', LowerCase(Edit1.Text)) = 1) then SpeedButton7Click(Self);
end;

ja det er ikke shellexecte som er et problem det er det med at få url\'en som man skal ind på (altså på den nye side) med sig, for den url kommer først frem, hmmm man kunne jo lave en sleep prøver lige :)

/ZIRON

loproc har du icq eller msn???

/ZIRON

ja da.. begge dele :o)
98746969 på ICQ