Externes Programm ausführen

[Benmik]

Ich würde mich freuen, wenn du später hier mal deine Erfahrungen mitteilen würdest, insbesondere, welche Kommandos und Schalter du eingesetzt und getestet hast.

[Willie1]

Hallo Benmik,
das will gerne tun.
Ich habe -lang de ausprobiert. Hier gibt es Probleme mit dem Zeichensatz. Die deutschen Umlaute werden falsch dargestellt. Ich hab's mit OEMToChar und OEMConvert versucht, geht aber nicht. So geht es nicht:
Memo1.Lines.OEMConvert:=true;
CharToOEM(PWideChar(ETout.Text),PAnsiChar(Memo1.Li nes.Text)); Der Rückgabewert ist false
Ich sehe, über dieses Thema gibt es hier schon Beiträge, sie helfen mir aber nicht weiter...

Ich sehe, du hast auch die Starter Edition, es ist ein Elend, dass sich Variablen nicht im Schwebefenster direkt anzeigen lassen!
Willie1.

[himitsu]

Memo1.Lines.Text ist und bleibt immer ein UnicodeString und das kannst/darfst du niemals nach PAnsiChar konvertieren.

Aber natürlich ist dir schon lange die Kompilerwarnung an dieser Stelle aufgefallen.


OEMConvert kannte ich noch nicht, aber wenn ich mir so die Hilfe durchlese, dann würde ich sagen, dass es sich ausschließlich auf das UserInterface, also um die Eingabe des Benutzers handelt und sich Programmintern auf nichts auswirkt.

CharToOEM will auch auf der rechten Seite garantiert eine Variable haben, mit der selben Größe (Length) wie Links, und du gibst da den Zeiger auf die temporäre Ausgabe eines Property rein.

[Delphi.Narium]

Schau bitte mal, ob Du (sinngemäß) hiermit weiter kommst, es stammt aus 'ner alten Delphi 7-Komponente zum Aufruf von Konsolenprogrammen:

Delphi-Quellcode:

function OEM2Ansi(OEMString: string): string;
begin
  OEMString := OEMString + #0;
  OemToChar(PChar(OEMString), @OEMString[1]);
  Delete(OEMString, Length(OEMString), 1);
  Result := OEMString;
end;

...
      repeat
        succeed:=ReadFile(PipeOutputRead,Buffer,szBuffer,BytesRead,nil);
        if not succeed then break;
        // Hier die Funktion einfügen, vor dem Schreiben der Ausgabe in den Stream.
        OemToAnsi(Buffer^,Buffer^);
        Stream.Write(Buffer,BytesRead)
      until (BytesRead=0);
...

[himitsu]

Zitat von Delphi.Narium:

es stammt aus 'ner alten Delphi 7-Komponente zum Aufruf von Konsolenprogrammen:

Und weil dort mit "falschen" Typen gearbeitet wurde, funktioniert dieser Code seit 2009 nicht mehr, da dort String = UnicodeString und PChar = PWideChar ist.

OEMString hätte schon immer ein AnsiString sein müssen und das knallt nun bei der Unicode-Umstellung seit Delphi 2009.
PS: Delphi-Strings besitzen eine abschließende implizite #0, aber nicht so schlimm ... doppelt hält besser.

[Delphi.Narium]

Zitat von himitsu:

Und weil dort mit "falschen" Typen gearbeitet wurde, funktioniert dieser Code seit 2009 nicht mehr, da dort String = UnicodeString und PChar = PWideChar ist.

Deshalb schrieb ich ja auch sinngemäß. Klar, dass das nicht 1:1 zu übernehmen ist.

Die obige Routine dürfte hierher stammen: Console: OEM nach ANSI. Wurde hier also schon vor über 7 Jahren "falsch" veröffentlicht , aber eventuell läßt sich ja aus dem Thread eine Lösung für das hier diskutierte Problem ableiten.

[Willie1]

Delphi.Narium, das hatte ich hier schon gefunden, es läuft nicht.
Auf -lang de verzichten ist auch keine Lösung, es gibt den Tag City er zeigt z.B. Düsseldorf falsch in Unicode an, doof.

Ich habe es gerade ausprobiert, auf dem Rechner vor dem letzten Windows 10 Update werden Umlate z.B. Düsseldorf korrekt angezeigt.
Die Windows Console ist wohl verändert worden. Was sagt ihr jetzt.

Willie.