AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Programmierung allgemein Netzwerke Sonderzeichen übermitteln
Thema durchsuchen
Ansicht
Themen-Optionen

Sonderzeichen übermitteln

Ein Thema von codenoob · begonnen am 28. Jun 2017 · letzter Beitrag vom 2. Jul 2017
Antwort Antwort
Seite 1 von 2  1 2      
codenoob
(Gast)

n/a Beiträge
 
#1

AW: Sonderzeichen übermitteln

  Alt 28. Jun 2017, 13:11
Also meine Form mit den Serversockets versenden den den Dateinamen an meinen client der Konsole ist.
Dies funktioniert auch ausser der Dateiname besteht aus sonderzeichen da kommt beim client eben nicht

'MeineMusikDateiૐ.mp3' an sondern nur 'MeineMusikDatei ?.mp3'

Nach langem Googeln scheint es wohl mit der Konsole an der Konsole zu liegen.

Denn wenn ich das ganze in meiner Server Form mit Utf8Encode(Dateiname) umwandle und verschicket kommt am clent auch 'MeinMusikDatei à«?.mp3'
aber dieser lässt sich danneben nicht mit UTF8ToString oder UTF8Decode wieder zurückwandeln dann hab ich wieder 'MeineMusikDatei ?.mp3'
  Mit Zitat antworten Zitat
Benutzerbild von p80286
p80286

Registriert seit: 28. Apr 2008
Ort: Stolberg (Rhl)
6.659 Beiträge
 
FreePascal / Lazarus
 
#2

AW: Sonderzeichen übermitteln

  Alt 28. Jun 2017, 17:37
Denn wenn ich das ganze in meiner Server Form mit Utf8Encode(Dateiname) umwandle und verschicket kommt am clent auch 'MeinMusikDatei à«?.mp3'
aber dieser lässt sich danneben nicht mit UTF8ToString oder UTF8Decode wieder zurückwandeln dann hab ich wieder 'MeineMusikDatei ?.mp3'
Jo, Deine Konsole kann nur Ansi/ASCII (anzeigen) und damit ist es mit den Sonderzeichen Essig.

Gruß
K-H
Programme gehorchen nicht Deinen Absichten sondern Deinen Anweisungen
R.E.D retired error detector
  Mit Zitat antworten Zitat
Benutzerbild von himitsu
himitsu

Registriert seit: 11. Okt 2003
Ort: Elbflorenz
44.323 Beiträge
 
Delphi 12 Athens
 
#3

AW: Sonderzeichen übermitteln

  Alt 28. Jun 2017, 22:29
Nicht ganz, auch die Console kann Unicode, bzw. UTF-8.
SetConsoleOutputCP(CP_UTF8);
MSDN-Library durchsuchenSetConsoleOutputCP MSDN-Library durchsuchenSetConsoleCP

Standardmäßig ist die Console oftmals mit einem OEM-Charset initialisiert.


Wer sich noch an due Autoexec.bat erinnert.
Auch damals konnte man einen anderen Charset Codepage einstellen (ANSI) und sogar ein paar der 255 Chars nach Belieben pixelweise neu definieren.
Angehängte Grafiken
Dateityp: gif Win8Unicode.gif (10,3 KB, 28x aufgerufen)
Ein Therapeut entspricht 1024 Gigapeut.

Geändert von himitsu (28. Jun 2017 um 22:33 Uhr)
  Mit Zitat antworten Zitat
Benutzerbild von jaenicke
jaenicke

Registriert seit: 10. Jun 2003
Ort: Berlin
9.864 Beiträge
 
Delphi 12 Athens
 
#4

AW: Sonderzeichen übermitteln

  Alt 29. Jun 2017, 15:48
Denn wenn ich das ganze in meiner Server Form mit Utf8Encode(Dateiname) umwandle und verschicket kommt am clent auch 'MeinMusikDatei à«?.mp3'
aber dieser lässt sich danneben nicht mit UTF8ToString oder UTF8Decode wieder zurückwandeln dann hab ich wieder 'MeineMusikDatei ?.mp3'
Du wirfst Äpfel und Birnen durcheinander.
Das eine ist die reine Übertragung und die Umwandlung dafür. Das andere ist die Anzeige in der Konsole.

So etwas solltest du schrittweise angehen.
  • Zuerst im Debugger prüfen, ob die reine Übertragung funktioniert. (Haltepunkt setzen und Inhalt der Variablen auswerten.)
  • Und dich erst danach um die Anzeige kümmern, wenn du sicher bist, dass die Übertragung klappt
Denn aktuell kann es noch an vielen Dingen liegen... Variablen mit Typ AnsiString, Fehler bei der Umwandlung und eben auch an der Anzeige in der Konsole. Was davon das Problem ist, lässt sich aus deinen bisherigen Ausführungen nicht ermitteln.
Sebastian Jänicke
AppCentral
  Mit Zitat antworten Zitat
codenoob
(Gast)

n/a Beiträge
 
#5

AW: Sonderzeichen übermitteln

  Alt 29. Jun 2017, 18:28
Also momentan schaut es so aus.

screenshoot.JPG

wie gesagt so versende ich
Delphi-Quellcode:
var
  FileName : String;

  until Socket.SendBuf(pointer(AnsiString(FileName))^,Length(AnsiString(FileName))) <> -1;
und so empfange ich
Delphi-Quellcode:
var
   FileName : String;

   FileName := string(Socket.ReceiveString);
Wie kann ich denn prüffen ob es überhaupt schon in der Konsole Richtig ankommt und vom der Server Form richtig versendet wird ?

Grüsse Tom
  Mit Zitat antworten Zitat
codenoob
(Gast)

n/a Beiträge
 
#6

AW: Sonderzeichen übermitteln

  Alt 29. Jun 2017, 18:48
Hab jetzt mal ne neue Konsole gemacht.
Delphi-Quellcode:
program Project1;

{$APPTYPE CONSOLE}

{$R *.res}

uses
  System.SysUtils;

var
   MyString : String;

begin
  try

   MyString := 'Mein String mit Sonderzeichen ૐ';

   writeln(MyString);
   Readln;

    { TODO -oUser -cConsole Main : Code hier einfügen }
  except
    on E: Exception do
      Writeln(E.ClassName, ': ', E.Message);
  end;
end.
und sogar da gibt er meinen String so aus
screenshoot_2.JPG

Geändert von codenoob (29. Jun 2017 um 18:51 Uhr)
  Mit Zitat antworten Zitat
nahpets
(Gast)

n/a Beiträge
 
#7

AW: Sonderzeichen übermitteln

  Alt 29. Jun 2017, 18:59
Ja, die Konsole hat' nen anderen Zeichnsatz, als z. B. der Editor von Delphi.

Probier' doch mal bitte, ob in Deinem neuen Programm die Ausgabe der Umlaut äöü ... klappt.

Delphi-Quellcode:
program Project1;

{$APPTYPE CONSOLE}

{$R *.res}

uses
  System.SysUtils,
  Windows;

function StrOemToAnsi(const S: string): string;
begin
  SetLength(Result, Length(S));
  if S <> 'then OemToAnsiBuff(@S[1], @Result[1], Length(S));
end;

function StrAnsiToOem(const S: string): string;
begin
  SetLength(Result, Length(S));
  if S <> 'then AnsiToOemBuff(@S[1], @Result[1], Length(S));
end;

var
   MyString : String;

begin
  try

   MyString := StrAnsiToOem('Mein String mit Sonderzeichen ૐ');

   writeln(MyString);
   Readln;

    { TODO -oUser -cConsole Main : Code hier einfügen }
  except
    on E: Exception do
      Writeln(E.ClassName, ': ', E.Message);
  end;
end.
Damit besser?

Wobei ich bezweifle, dass die Konsole das von Dir gewählte Sonderzeichen überhaupt ausgeben kann.

Zum Zeichensatz der Konsole (und dessen Änderung) wurde weiter oben schonmal was geschrieben.
  Mit Zitat antworten Zitat
Fritzew

Registriert seit: 18. Nov 2015
Ort: Kehl
678 Beiträge
 
Delphi 11 Alexandria
 
#8

AW: Sonderzeichen übermitteln

  Alt 29. Jun 2017, 19:22
Liest Du eigentlich die Antworten?
Die Konsole ist default auf der Codepage des Systems unterwegs

Also erstmal in Deinem Programm vor dem ersten benutzen der Konsole:

SetConsoleOutputCP(CP_UTF8);
oder
SetTextCodePage(Output, CP_UTF8);

und dann ganz wichtig !!!!
Stelle bitte in den Eigenschaften Deiner Konsole auf einen TrueType Font mit UnicodeSupport.
Es werden aber dort nur Fonts mit fester Breite vorgeschlagen, es muss also nicht sein dass alles angezeigt wird.
Aber Anzeige ist nicht gleich Daten.
Und wenn Du auf einer Seite 8 Bit-Strings versendest kannst Du nicht erwarten dass Unicode ankommt, vor allem nicht wenn die Zeichen nicht in eine Codepage passen.
Fritz Westermann
  Mit Zitat antworten Zitat
codenoob
(Gast)

n/a Beiträge
 
#9

AW: Sonderzeichen übermitteln

  Alt 29. Jun 2017, 19:31
Wo ändere ich denn die Eigenschaften Konsole?
Bei den Projekt Einstellungen?

screenshoot_3.JPG
  Mit Zitat antworten Zitat
nahpets
(Gast)

n/a Beiträge
 
#10

AW: Sonderzeichen übermitteln

  Alt 29. Jun 2017, 19:49
Mit dem zwei Post höher zitierten Quelltext?
  Mit Zitat antworten Zitat
Antwort Antwort
Seite 1 von 2  1 2      


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 18:20 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz