AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Thema durchsuchen
Ansicht
Themen-Optionen

[UniSynEdit] Zugriffsverletzung bei SynGen

Ein Thema von Zwoetzen · begonnen am 10. Feb 2009 · letzter Beitrag vom 11. Feb 2009
 
Zwoetzen

Registriert seit: 19. Sep 2007
Ort: Ilmenau
93 Beiträge
 
Delphi 2009 Professional
 
#4

Re: [UniSynEdit] Zugriffsverletzung bei SynGen

  Alt 11. Feb 2009, 10:36
Okay, habe den Fehler gefunden und konnte ihn beheben:

Beim Reinladen der .msg-Datei (via Stream) wurde der Inhalt komplett zerstört (bzw falsch interpretiert), sodass zB statts "AB" irgendein chinesisches/japanisches Zeichen dabei rauskam. Habe nun das Reinladen der Datei anstatt über einen Stream über eine TStringList realisiert, und nun funktioniert auch alles so, wie es soll: Das Programm läuft durch und tut das, was es soll
(kA ob das auch über Streams zu reparieren gewesen wäre... Hab noch nie mit Streams gearbeitet ^^)

Der geänderte Code:
(Der auskommentierte Teil ist der ursprüngliche Code)
Delphi-Quellcode:
procedure TFrmMain.BtnStartClick(Sender: TObject);
var
  SL: TStringList; // <-- ADDED
begin
  ClearAll;

  Screen.Cursor := crHourGlass;

  // BEGIN EDIT
  SL := TStringList.Create;
  SL.LoadFromFile(OpenDialog.FileName);
  Lex.Origin := PWideChar(SL.Text);
  SL.Free;

(*
  Stream.Clear;
  Stream.LoadFromFile(OpenDialog.FileName);
  Lex.Origin := Stream.Memory;
*)

  // END EDIT

  Lex.Tokenize; // <-- Hier drin hats immer geknallt, weil der Dateiinhalt falsch interpretiert wurde
  [...]
end;
MfG Zwoetzen
  Mit Zitat antworten Zitat
 


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 14:51 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-2025 by Thomas Breitkreuz