Internetexplorer 11 Windows 7 Inhalt ausdrucken

[Alterauge]

Hallo,

lasse mir eine Route bei Google Maps anzeigen!
Dieses funktioniert auch soweit ganz gut!

Delphi-Quellcode:

 ShellExeCute(handle, 'open', PChar('http://maps.google.de/maps?f=d&source=s_d&saddr= ' + Edit8.text + ' +%2C+' + Edit9.text + '&daddr= ' + Edit2.Text + ' ' + Edit1.Text), nil, nil, sw_show);

Jetzt möchte ich gerne die Route ausdrucken!
Wer hat eine gute Idee?

Danke :-)

[Der schöne Günther]

Du könntest bei Google Maps auf den Drucker klicken.

[Alterauge]

Hallo,
dass ist natürlich auch eine Möglichkeit! :-)

Sollte schon automatisch bzw. über einen Timer laufen!

Danke :-)

[Der schöne Günther]

Dann verstehe ich nicht, wie die Anwendung typischerweise für den Benutzer aussieht.

Dein Programm gibt die Kontrolle an den installierten Webbrowser ab. Der Benutzer ist jetzt dort und schaut sich eine von Google geplante Route an. Wenn er möchte, kann er sie auf Papier ausdrucken.

Was soll der Timer jetzt machen? Ob der Nutzer will oder nicht im Minutentakt neue Fenster aufmachen und Routen drucken?

[Alterauge]

Hallo,
habe nicht den ganzen Quelltext gezeigt!
Versuchen eine Art Alarmdrucker Tool zu programmieren!
Vor dieser Anwendung sitzt kein Anwender bzw. Benutzer.

Es kommt eine Alarmmeldung (MySQL DB / DBMemo1) mit Strasse /Ort usw.
Jetzt soll die Route berechnet werden. Läuft auch! Wird auf einem Bildschirm angezeigt!
Jetzt fehlt noch der Ausdruck!

So sieht es zur Zeit aus! Bin noch am testen!

Delphi-Quellcode:

procedure TForm1.TransferTimer(Sender: TObject);
 var
  f: String;
 sl: TStrings;
 i : Integer;
  begin
   if DBMemo1.Text <>'' then begin
    i:=Memo1.Lines.Count;
    try
     sl := TStringList.Create;
     sl.Delimiter := Edit7.Text[1];
     sl.StrictDelimiter := True;
     sl.DelimitedText := DBMemo1.Text;
     Memo1.Lines.Assign( sl);
     Edit3.Text := Memo1.Lines[0];
     Edit4.Text := Memo1.Lines[1];
     Edit5.Text := Memo1.Lines[2];
     Edit6.Text := Memo1.Lines[(Memo1.Lines.count-1)];
     Edit1.Text := Edit4.Text;
     Edit2.Text := Edit5.Text;
     ShellExeCute(handle, 'open', PChar('http://maps.google.de/maps?f=d&source=s_d&saddr= ' + Edit8.text + ' +%2C+' + Edit9.text + '&daddr= ' + Edit2.Text + ' ' + Edit1.Text), nil, nil, sw_show); //+'&ie=UTF8&z=8'
     ProtokollStorage.Insert;
     ProtokollStorage.FieldByName('Status').Text := '0';
     ProtokollStorage.FieldByName('Meldung').Text := 'Daten wurden erfolgreich gelesen > '+Edit6.Text;
     ProtokollStorage.FieldByName('Datum').Text := FormatDateTime('dd.mm.yyyy', now);
     ProtokollStorage.FieldByName('Zeit').Text := FormatDateTime('hh:nn:ss', now);
     ProtokollStorage.Post;
     MapsStorage.Insert;
     MapsStorage.FieldByName('Einsatzart').Text := Edit3.Text;
     MapsStorage.FieldByName('Strasse').Text := Edit4.Text;
     MapsStorage.FieldByName('Stadt').Text := Edit5.Text;
     MapsStorage.FieldByName('Einsatznummer').Text := Edit6.Text;
     MapsStorage.FieldByName('Datum').Text := FormatDateTime('dd.mm.yyyy', now);
     MapsStorage.FieldByName('Zeit').Text := FormatDateTime('hh:nn:ss', now);
     MapsStorage.FieldByName('Status').Text := Copy( TelegramStorage.FieldByName('Address').Text, 8 );
     MapsStorage.FieldByName('Text DME Leitstelle').Text := DBMemo1.Text;
     MapsStorage.Post;
     TelegramStorage.Delete;
     ProtokollStorage.Insert;
     ProtokollStorage.FieldByName('Status').Text := '1';
     ProtokollStorage.FieldByName('Meldung').Text := 'Route wurde erfolgreich berechnet > PRINT > DEPESCHE  > '+Edit6.Text;
     ProtokollStorage.FieldByName('Datum').Text := FormatDateTime('dd.mm.yyyy', now);
     ProtokollStorage.FieldByName('Zeit').Text := FormatDateTime('hh:nn:ss', now);
     ProtokollStorage.Post;
     if CheckBox3.Checked = true then begin
     f := ExtractFilePath(Application.ExeName)+Edit6.Text+ '.asc';
     Memo1.Lines.SaveToFile(f);
     Memo1.Clear;
     end else begin
     Memo1.Clear;
     end;
    finally
      sl.Free;
    end;
end else begin
  //Showmessage('"Kein Inhalt verfügbar!" ');
 end;
end;

[Alterauge]

Der schöne Günther,
was ist los ?

Warte auf neue Vorschläge????

8-)

[franktron]

Ich mach das damit http://code.google.com/p/delphichromiumembedded/

[Alterauge]

hallo franktron,

was soll das sein?
Brauche etwas mehr Info!

Danke :)

[Alterauge]

hallo,

hat keiner einen Hinweis oder eine Idee,
wie ich einen Ausdruck hinbekomme?

:roll:

[franktron]

Zitat:

Zitat von Alterauge (Beitrag 1239615)

hallo franktron,

was soll das sein?
Brauche etwas mehr Info!

Danke :)

Das ist Chromium als eine Alternative zu IE Embeded und macht weniger ärger.

Damit hab ich auch mal eine Ausdruck von Google Maps gemacht.