Delphi-PRAXiS
Seite 1 von 3  1 23   

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Algorithmen, Datenstrukturen und Klassendesign (https://www.delphipraxis.net/78-algorithmen-datenstrukturen-und-klassendesign/)
-   -   Delphi Windows, Stream und String hin her convert fehler (https://www.delphipraxis.net/202051-windows-stream-und-string-hin-her-convert-fehler.html)

KodeZwerg 23. Sep 2019 13:35

Windows, Stream und String hin her convert fehler
 
Hallo, habe ein kleines Umwandlungsproblem und finde einfach nicht meinen Fehler.... grrrr
Einen String in einen Stream zu verwandeln scheint gut zu klappen,
die Rückumwandlung hingegen klappt nur manchmal korrekt, ich weiß nur nicht warum *heul*

Hier meine Versuche: (alles kommentiert damit man weiß warum ich was an welcher stelle mache)

Im Formular sind folgende Dinge existent:
Eine Memo, Edit und Knopf Komponente.
Delphi-Quellcode:
// pump text in einen stream
// diese methode scheint gut zu arbeiten
function TKlasse.StringToStream ( const InputString: String; var ResultStream: TMemoryStream ): Boolean;
var
  i: Integer;
begin
// falls was schiefgeht, erstmal falsen
  Result := False;
// wenn nix reinkommt, muss auch nix rauskommen
  if (Length(InputString) <= 0) = not False then
    Exit;
// falls stream inexistent ist, einen erstellen, ansonsten auf null position stellen
  if (ResultStream = NIL) = not False then
    ResultStream := TMemoryStream.Create
    else
    ResultStream.Position := 0;
  try
// stream beschreiben
    i := ResultStream.Write(InputString[1], Length(InputString));
  finally
// entweder haben wir es geschafft, oder auch nicht :-)
    if (i = Length(InputString)) = not false then
      Result := not False
      else
      Result := False
  end;
end;

// hol text aus einem stream
// hier steckt irgendwo ein fehler den ich nicht finde oder meine vorgehensweise ist falsch
function TKlasse.StreamToString ( const InputStream: TMemoryStream; var ResultString: String ): Boolean;
var
  Buffer: PChar; // (ist ein PWideChar bei D2010)
begin
// falls was schiefgeht, erstmal falsen
  Result := False;
// wenn stream inexistent ist oder leer ist, mach nichts
  if ((InputStream <> NIL) and (InputStream.Size > 0)) = not False then
    begin
      try
// puffer speicher allozieren
        Buffer := StrAlloc(InputStream.Size +1);
// stream position auf null setzen
        InputStream.Position := 0;
// stream inhalt an puffer pointen
        InputStream.Read(Buffer^, InputStream.Size);
// stringlänge anpassen
        SetLength(ResultString, SizeOf(Buffer));
// puffer in string kopieren
        ResultString := Copy(Buffer, 1, InputStream.Size);

// test ausgabe bevor speicher bereinigt ist
        MemoBox.Lines.Add('Buffer: ' + Buffer);
        MemoBox.Lines.Add('Result: ' + ResultString);

// puffer speicher freigeben
        StrDispose(Buffer);
      finally
// entweder haben wir es geschafft, oder auch nicht :-)
        if (Length(ResultString) = InputStream.Size) = not false then
          Result := not False
          else
          Result := False
      end;
    end;
end;

// hier meine Test-Methode die beides auf einmal verwendet....
procedure TKlasse.KnopfClick(Sender: TObject);
var
  tmp: TMemoryStream;
  s: String;
begin
  MemoBox.Lines.Add('Converting "' + EditZeile.Text + '" to stream');
  try
    if (StringToStream( EditZeile.Text, tmp ) = not False) = not False then
      if (StreamToString( tmp, s ) = not False) = not False then
        MemoBox.Lines.Add(s);
  finally
    tmp.Free;
  end;
end;

DeddyH 23. Sep 2019 13:46

AW: Windows, Stream und String hin her convert fehler
 
Solch eine innovative Boolean-Behandlung habe ich noch nie gesehen :shock:. Davon abgesehen: lass Dir doch SizeOf(Buffer) einmal ausgeben.

Schokohase 23. Sep 2019 13:48

AW: Windows, Stream und String hin her convert fehler
 
Schau mal in die Doku bei Delphi-Referenz durchsuchenTStreamReader und Delphi-Referenz durchsuchenTStreamWriter.

KodeZwerg 23. Sep 2019 14:14

AW: Windows, Stream und String hin her convert fehler
 
Danke Schokohase, doku schaut gut aus, ich hoffe mein altes Delphi hat das auch verbaut.

@DeddyH, mir wurde hier oft genug gesagt das man nicht auf ein true testen solle sondern immer auf false, hab ich da was falsch verstanden?

DeddyH 23. Sep 2019 14:20

AW: Windows, Stream und String hin her convert fehler
 
Ja, hast Du falsch verstanden. Du sollst am besten gar nicht gegen true oder false prüfen.
Delphi-Quellcode:
// Schlecht
if Dingens = true
Delphi-Quellcode:
// Besser
if Dingens
Delphi-Quellcode:
// Schlecht
if Dingens = false
Delphi-Quellcode:
// Besser
if not Dingens

KodeZwerg 23. Sep 2019 14:32

AW: Windows, Stream und String hin her convert fehler
 
Zitat:

Zitat von DeddyH (Beitrag 1447538)
Ja, hast Du falsch verstanden.

Das werde ich mir zu Herzen nehmen, Danke dafür.
TStringStream schau ich mir auch mal an, falls ich mit dem TStreamReader/Writer nicht zurecht kommen sollte (sofern bei D2010 vorhanden). Dankeschön @Frühlingsrolle

freimatz 24. Sep 2019 12:29

AW: Windows, Stream und String hin her convert fehler
 
Zitat:

Zitat von KodeZwerg (Beitrag 1447526)
Hallo, habe ein kleines Umwandlungsproblem und finde einfach nicht meinen Fehler.... grrrr
Einen String in einen Stream zu verwandeln scheint gut zu klappen,
die Rückumwandlung hingegen klappt nur manchmal korrekt, ich weiß nur nicht warum *heul*

1. Was ist der Fehler? Bitte konkreter. Was ist manchmal? Hängt das von ein Eingabedaten ab oder von Stand des Mondes? :wink:
2. Schon mal mit debuggen versucht? SCNR

Neutral General 24. Sep 2019 13:08

AW: Windows, Stream und String hin her convert fehler
 
Der Fehler liegt hier:
Delphi-Quellcode:
i := ResultStream.Write(InputString[1], Length(InputString));

Ein Char ist 2 Byte groß, daher ist ein String der Länge X = X * 2 (SizeOf(Char)) Bytes groß:
Delphi-Quellcode:
i := ResultStream.Write(InputString[1], Length(InputString) * SizeOf(Char));
Deine Abfragen auf die Stream/String längen musst du dann natürlich auch anpassen:

Delphi-Quellcode:
if (i = Length(InputString)) = not false then

und
Delphi-Quellcode:
if (Length(ResultString) = InputStream.Size) = not false then

KodeZwerg 24. Sep 2019 13:42

AW: Windows, Stream und String hin her convert fehler
 
Nach vielem hin und her probieren, streamreader/writer ist doch nicht das was ich benötige, der scheint mit dateien was am hut zu haben (habe mich aber nicht tiefer damit beschäftigt, geb ich zu!). ich arbeite hier nicht mit dateien sondern nur mit einem internen stream der dann übers netzwerk versendet werden soll.
(anfangs nur strings, später, wenn ich verstanden habe wie das ganze funktioniert auch mit binären krams)

Zitat:

Zitat von freimatz (Beitrag 1447681)
1. Was ist der Fehler? Bitte konkreter. Was ist manchmal? Hängt das von ein Eingabedaten ab oder von Stand des Mondes? :wink:
2. Schon mal mit debuggen versucht? SCNR

Debuggen fällt mir total schwer, da blick ich noch nicht durch, habe mal mit breakpoints rumprobiert aber bin nicht wirklich schlauer dadurch geworden.
Der Fehler ist, das wenn ich den Test starte, mit einem langen string "Die ist ein Beispiel String der Konvertiert werden soll" starte,
klappt es.
Ich verändere dann das Edit Feld auf, sagen wir mal "1", konvertierung klappt nicht, je mehr Zeichen ich dann ranhänge, umso interessantere ergebnisse werden geliefert (aus "123" wird mal "1" oder "12"....)

Zitat:

Zitat von Neutral General (Beitrag 1447685)
Ein Char ist 2 Byte groß, daher ist ein String der Länge X = X * 2 (SizeOf(Char)) Bytes groß:

das ergibt sinn und ich verstehe es, werd ich freudig heut abend testen *daumen drück* & vielen dank schonmal!!

Schokohase 24. Sep 2019 13:53

AW: Windows, Stream und String hin her convert fehler
 
Du weißt, dass eine Datei ein Stream ist (ein
Delphi-Quellcode:
TFileStream
)? Insofern kann man einen
Delphi-Quellcode:
TStreamReader
auch auf einen Datei loslassen, aber eben auch auf jeden anderen Stream, solange es eben ein Stream ist.

Sonst hätten die die Klasse ja auch nicht als StreamReader bezeichnet, sondern als FileReader, wenn das Teil nur mit Dateien umgehen könnte.

Und es kommt bei Text in einem Stream IMMER auf die Kodierung (Encoding) an. Wenn das nicht passt, dann kommt nur Murks beim Lesen raus.

Und genau da hilft auf der
Delphi-Quellcode:
TStreamReader
/
Delphi-Quellcode:
TStreamWriter
.


Alle Zeitangaben in WEZ +1. Es ist jetzt 05:47 Uhr.
Seite 1 von 3  1 23   

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