AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Programmierung allgemein Netzwerke Delphi Webseite anzeigen...
Thema durchsuchen
Ansicht
Themen-Optionen

Webseite anzeigen...

Ein Thema von Grolle · begonnen am 24. Dez 2004 · letzter Beitrag vom 29. Dez 2004
Antwort Antwort
Grolle

Registriert seit: 5. Nov 2004
Ort: Coesfeld
1.268 Beiträge
 
Delphi 2010 Professional
 
#1

Webseite anzeigen...

  Alt 24. Dez 2004, 02:11
Wie kann ich mir einen Html-Quellcode (im SynEdit) als Webseite im Standardbrowser
anzeigen lassen??? (Delphi3 pro)
Grolle
  Mit Zitat antworten Zitat
Benutzerbild von Luckie
Luckie

Registriert seit: 29. Mai 2002
37.621 Beiträge
 
Delphi 2006 Professional
 
#2

Re: Webseite anzeigen...

  Alt 24. Dez 2004, 03:01
Hier im Forum suchenshellexecute
Michael
Ein Teil meines Codes würde euch verunsichern.
  Mit Zitat antworten Zitat
Benutzerbild von Jelly
Jelly

Registriert seit: 11. Apr 2003
Ort: Moestroff (Luxemburg)
3.741 Beiträge
 
Delphi 2007 Professional
 
#3

Re: Webseite anzeigen...

  Alt 24. Dez 2004, 11:36
Oder wenn das nicht klappt, hier kucken
  Mit Zitat antworten Zitat
Grolle

Registriert seit: 5. Nov 2004
Ort: Coesfeld
1.268 Beiträge
 
Delphi 2010 Professional
 
#4

Re: Webseite anzeigen...

  Alt 29. Dez 2004, 13:12
Hallo!
Hat beides nicht geklappt. Muss ich den Text im Synedit
erst als html zwischenspeichern? Und wie sieht dann
der Aufruf über Shell Execute aus? Fragen über Fragen...
Stefan
  Mit Zitat antworten Zitat
Benutzerbild von Jelly
Jelly

Registriert seit: 11. Apr 2003
Ort: Moestroff (Luxemburg)
3.741 Beiträge
 
Delphi 2007 Professional
 
#5

Re: Webseite anzeigen...

  Alt 29. Dez 2004, 13:43
Ja, speicher den Text auf die Platte und verwende eine der beiden Methoden. Wie du shellexecute aufrufst findest du hier im Forum.
  Mit Zitat antworten Zitat
Grolle

Registriert seit: 5. Nov 2004
Ort: Coesfeld
1.268 Beiträge
 
Delphi 2010 Professional
 
#6

Re: Webseite anzeigen...

  Alt 29. Dez 2004, 13:53
Hi!
Also wie ich shellExecute aufrufe weiß ich.
Es sieht jetzt folgendermaßen aus und funktioniert natürlich nicht:
Code:
procedure TForm2.BitBtn11Click(Sender: TObject);
begin
  if pfad = StandardFileName then
    Speichernals1Click(Sender)
  else
  begin
    SynEdit1.Lines.SaveToFile(pfad);
    SynEdit1.Modified := False
  end
end;
begin
     ShellExecute(Application.Handle, 'open',
     PChar('pfad'), nil, nil, SW_ShowNormal);
end.
Grolle
  Mit Zitat antworten Zitat
Benutzerbild von Jelly
Jelly

Registriert seit: 11. Apr 2003
Ort: Moestroff (Luxemburg)
3.741 Beiträge
 
Delphi 2007 Professional
 
#7

Re: Webseite anzeigen...

  Alt 29. Dez 2004, 14:02
Zitat von Grolle:
Code:
begin
     ShellExecute(Application.Handle, 'open',
     PChar('pfad'), nil, nil, SW_ShowNormal);
end.
Wo hast du den Code denn stehen. Wann bitte schön soll der denn ausgeführt werden, wenn du den zwischen begin und end. schreibst.

Ausserdem greifst du mit PChar('pfad') nicht auf deine Variable Pfad zu, sondern auf den wandelst den string 'pfad' in PChar um. Probiers mal mit

PChar(pfad) ;

und überprüfe dess Inhalt. Deine BitBtn1Click-Prozedur gewährleistet nicht, daß in Pfad der richtige Inhalt steht.
  Mit Zitat antworten Zitat
Grolle

Registriert seit: 5. Nov 2004
Ort: Coesfeld
1.268 Beiträge
 
Delphi 2010 Professional
 
#8

Re: Webseite anzeigen...

  Alt 29. Dez 2004, 14:20
Der Code steht am Ende der Unit und Delphi hat mir ne
Fehlermeldung gegeben (end;). Wenn ich
PChar(pfad); eingebe sagt delphi undefinierter Bezeichner?
Stefan
  Mit Zitat antworten Zitat
Antwort Antwort


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 10:37 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz