AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren

Seltsames Memo LoadFomFile inculde Phänomen

Ein Thema von Ajintaro · begonnen am 2. Okt 2014 · letzter Beitrag vom 3. Okt 2014
Antwort Antwort
Seite 1 von 2  1 2   
Benutzerbild von Ajintaro
Ajintaro

Registriert seit: 20. Okt 2004
Ort: Sankt Augustin
138 Beiträge
 
Delphi XE6 Starter
 
#1

Seltsames Memo LoadFomFile inculde Phänomen

  Alt 2. Okt 2014, 20:08
Hallo DP !

Ich habe ein recht seltsames Verhalten, welches ich mir nicht erklären kann. Ich validiere eine XML gegen eine XSD Datei. Das funktioniert zwar prima, allerdings NUR wenn die XSD Datei per OpenTextFileDialog in das Memo geladen wird. Denn dann wird auch die "include" Zeile berücksichtigt.


Funktioniert:
Delphi-Quellcode:
procedure TFmain.button_open_xsdClick(Sender: TObject);
begin
 open_xmlorxsd.InitialDir := ExtractFilePath(Application.ExeName);
 open_xmlorxsd.filter := '.xsd';
 open_xmlorxsd.filename := '*.xsd';
 if open_xmlorxsd.Execute then memo_xsd.Lines.LoadFromFile(open_xmlorxsd.FileName);
end;

if validate_xml_memo(memo_xml.Lines.Text,memo_xsd.Lines.Text) = TRUE then Showmessage('Hurra');
Funktioniert nicht:
Delphi-Quellcode:
xsd := ExtractFilePath(Application.ExeName) + filename + '.xsd';
memo_xsd.lines.loadfromfile(xsd);
if validate_xml_memo(memo_xml.Lines.Text,memo_xsd.Lines.Text) = TRUE then Showmessage('Hurra');
XSD:
Code:
<xs:schema xmlns:xs="http://www.w3.org/2001/XMLSchema" xmlns:tns="http://www.hoppsassa.com/rr/schna/Types" elementFormDefault="qualified" targetNamespace="http://www.hoppsassa.com/rr/schna/Types">
  <xs:include schemaLocation="Types_Enhanced.xsd"/>
  <xs:element type="tns:Cool" name="Cool"/>
</xs:schema>
Wie gesagt der Pfad zu beiden XSD Dateien ist in beiden Fällen gleich. Per OpenTextFileDialog wird die include Zeile berücksichtigt, wenn ich die Datei einfach per LoadFromFile lade, wird die include Datei nicht gefunden.

Woran liegt das?
Jaimy
DAoC 2.0 -> Camelot Unchained !
  Mit Zitat antworten Zitat
mjustin

Registriert seit: 14. Apr 2008
2.719 Beiträge
 
Delphi 2009 Professional
 
#2

AW: Seltsames Memo LoadFomFile inculde Phänomen

  Alt 2. Okt 2014, 20:11
Woran liegt das?
Vermutlich setzt der Dialog das aktuelle Verzeichnis, dagegen wird bei LoadFromFile kein Verzeichniswechsel durchgeführt.
Das include gibt einen Pfad "relativ zum aktuellen Verzeichnis" an.
Michael Justin
  Mit Zitat antworten Zitat
Benutzerbild von himitsu
himitsu

Registriert seit: 11. Okt 2003
Ort: Elbflorenz
34.931 Beiträge
 
Delphi 10.2 Tokyo Professional
 
#3

AW: Seltsames Memo LoadFomFile inculde Phänomen

  Alt 2. Okt 2014, 22:16
Nicht vermutlich, sondern mit Sicherheit.
Darum soll man auch nicht mit relativen Pfaden arbeiten.

Und dieses if myboolean = True then ist auch eine geährliche Angelegenheit.


Am Besten wäre es, wenn man dem validate_xml_memo einen Pfad für Include-Dateien mitgeben könnte,
oder man muß ebenfalls am aktuellen Pfad rumfummeln.

Und warum heißt das eigentlich Memo? (validate_xml_memo)
Die Methode bekommt zwei Strings und keine Memos rein.

Zitat:
InitialDir := ExtractFilePath
Fällt dir was auf?

Zitat:
open_xmlorxsd.filter := '.xsd';
open_xmlorxsd.filename := '*.xsd';
Der Dialog behandelt doch nur die .XSD?
Dann kannst du die Parameter auch gleich alle im OI angeben.
Aber:
Dein FileName ist falsch, denn darin hat ein * nichts zu suchen. (leer lassen, einen richtigen DefaulFileNamen reinschreiben oder auf leer setzen, um den letzten Aufruf zurückzusetzen)
Der Filter hält sich auch nicht an die Definition. (schau mal in die OH)
Dann könnte man eventuell noch FilterIndex und DefaultFilter setzen.



Und nein, deine Fehleranalyse ist falsch, denn am LoadFromFile liegt es nicht, da es immer richtig funktioniert, egal ob mit oder ohne OpenDialog.
Das Problem liegt ausschließlich in deinem validate_xml_memo.
Garbage Collector ... Delphianer erzeugen keinen Müll, also brauchen sie auch keinen Müllsucher.
Delphi-Tage 2005-2014

Geändert von himitsu ( 2. Okt 2014 um 22:28 Uhr)
  Mit Zitat antworten Zitat
Benutzerbild von Ajintaro
Ajintaro

Registriert seit: 20. Okt 2004
Ort: Sankt Augustin
138 Beiträge
 
Delphi XE6 Starter
 
#4

AW: Seltsames Memo LoadFomFile inculde Phänomen

  Alt 2. Okt 2014, 22:43
Hi,

Okay habe den Filter abgändert: open_xmlorxsd.filter := 'XSD schemas (*.xsd)|*.XSD'; die Funktion sieht wie folgt aus:

Delphi-Quellcode:
{++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
// validate_xml_memo
+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++}

Function validate_xml_memo(xml,xsd: string):Boolean;

  procedure AddParseError(E: IXMLDOMParseError);
  begin
    if E.errorCode <> 0 then
    begin
     Showmessage('Validation Error: '+E.reason+#13#10+E.srcText)
    end else result:=TRUE;
  end;

var
  Doc: IXMLDOMDocument2;
  Schema: IXMLDOMDocument2;
  SchemaCache: IXMLDOMSchemaCollection;
  sNameSpace: String;
begin
  try
    // Load XML document
    Doc := CoDOMDocument60.Create;
    Doc.async := False;
    Doc.resolveExternals := True;
    Doc.validateOnParse := True;

    if not Doc.loadXML(xml) then
    begin
      AddParseError(Doc.parseError);
      Exit;
    end;

    // Load schema
    Schema := CoDOMDocument60.Create;
    Schema.async := False;
    Schema.resolveExternals := True;
    Schema.validateOnParse := True;

    if not Schema.loadXML(xsd) then
    begin
      AddParseError(Schema.parseError);
      Exit;
    end;

    // put in schema cache
    SchemaCache := CoXMLSchemaCache60.Create;
    sNameSpace := VarToStr(Schema.documentElement.getAttribute('targetNamespace'));
    SchemaCache.add(sNameSpace, Schema); //load schema with the correct namespace

    // assign schema cache to a document
    Doc.schemas := SchemaCache;

    // Validate
    AddParseError(Doc.validate);
    result:=TRUE;
  except
    on E: Exception do
      Showmessage(E.message);
  end;
end;
Die XSD Dateien liegen in einem benutzerdefinierten Ordner, dessen Pfad beim Starten des Programms aus einer ini gelesen wird.
Jaimy
DAoC 2.0 -> Camelot Unchained !
  Mit Zitat antworten Zitat
Benutzerbild von Sir Rufo
Sir Rufo

Registriert seit: 5. Jan 2005
Ort: Stadthagen
9.454 Beiträge
 
Delphi 10 Seattle Enterprise
 
#5

AW: Seltsames Memo LoadFomFile inculde Phänomen

  Alt 3. Okt 2014, 01:33
Nur mal so am Rande

Was möchtest du mit
Delphi-Quellcode:
try
  ...
except
  on E: Exception do
    Showmessage(E.message);
end;
erreichen?

Soll bei einer Exception ein Dialog mit der Fehlermeldung erscheinen?
Dann entferne diesen try .. except Block, denn die Anwendung macht das von ganz alleine!

Was du jetzt hast ist eine Funktion, die bei einer Exception die Exception-Message ausgibt (der Exception-Typ fällt unter den Tisch) und dann irgendeinen nicht kontrollierbaren Rückgabewert an den Aufrufer zurückliefert.

Wenn du Pech hast, dann siehst du diese Fehlermeldung und direkt danach die Meldung "Hurra".

Wem soll das denn nun etwas sagen?

Irgendwie gibt deine Funktion egal wie nur gesichert ein True heraus, ein False wird nie explizit gesetzt. Wahrscheinlich musst du deswegen auch den Rückgabewert auf True prüfen, sonst siehst du sehr selten Hurra.
Kaum macht man's richtig - schon funktioniert's
Zertifikat: Sir Rufo (Fingerprint: ‎ea 0a 4c 14 0d b6 3a a4 c1 c5 b9 dc 90 9d f0 e9 de 13 da 60)
  Mit Zitat antworten Zitat
Benutzerbild von himitsu
himitsu

Registriert seit: 11. Okt 2003
Ort: Elbflorenz
34.931 Beiträge
 
Delphi 10.2 Tokyo Professional
 
#6

AW: Seltsames Memo LoadFomFile inculde Phänomen

  Alt 3. Okt 2014, 02:13
Noch besser, wenn vorher der Code abgebrochen ist, das AddParseError aufrief und der Fehlercode zufällig 0 ist, dann gibt die Funktion auch True zurück, obwohl garnicht alles abgearbeitet wurde.
Und AddParseError fügt nichts irgendwo hinzu, sondern gibt nur eine Fehlermelung aus, also eher ein ShowParseError.

Irgendwie gibt deine Funktion egal wie nur gesichert ein True heraus, ein False wird nie explizit gesetzt.
Ein guter beweis, daß sich niemand die Compilermeldungen ansieht und auf das hört, was man ihm dort sagt.

Zitat:
sonst siehst du sehr selten Hurra.
Eher andersrum, er bekommt zu 99,3% ein False fehlerhaft als True (<>0) geliefert
und zu 0,4% wird ein "False" genau das True (=1) ergeben.
Garbage Collector ... Delphianer erzeugen keinen Müll, also brauchen sie auch keinen Müllsucher.
Delphi-Tage 2005-2014

Geändert von himitsu ( 3. Okt 2014 um 02:17 Uhr)
  Mit Zitat antworten Zitat
Dejan Vu
(Gast)

n/a Beiträge
 
#7

AW: Seltsames Memo LoadFomFile inculde Phänomen

  Alt 3. Okt 2014, 07:40
Ein guter beweis, daß sich niemand die Compilermeldungen ansieht und auf das hört, was man ihm dort sagt.
Und das ist der Beweis, das viele Programmierer wirklich glauben, das NOT Alle = Niemand ist. Einer liest sie nicht und Du folgst daraus 'niemand'. Tss Tss Tss. Richtig wäre der Satz: 'Ein guter Beweis, das nicht Alle die Compilermeldungen anschauen' was wiederum banal ist, denn wenn eins im Leben immer gilt, dann, das es kein 'alle' und kein 'immer' gibt.(*)

Wollen wir das mit dem 'beweisen' vielleicht nochmal üben? Und gleich danach, oder besser davor noch, Grundlagen der Logik?

(*) Und der, der mich jetzt auf den Widerspruch hinweist und dabei den Witz nicht kapiert, kriecht'n Keks.

Was aber natürlich stimmt, ist, das man die Warnhinweise des Compilers ernst nehmen und (fast) alles daran setzen sollte, diese auf 0 zu bekommen ohne sie auszuschalten.

PS: Und 'ja', mir ist langweilig
  Mit Zitat antworten Zitat
Sailor

Registriert seit: 20. Jul 2008
Ort: Balaton
96 Beiträge
 
Delphi 2005 Professional
 
#8

AW: Seltsames Memo LoadFomFile inculde Phänomen

  Alt 3. Okt 2014, 09:22
OT: @himitsu

Und dieses if myboolean = True then ist auch eine geährliche Angelegenheit.

Könntest Du mal aufhören, ständig diesen Unsinn zu posten?
  Mit Zitat antworten Zitat
mkinzler
(Moderator)

Registriert seit: 9. Dez 2005
Ort: Heilbronn
39.307 Beiträge
 
Delphi 10.2 Tokyo Enterprise
 
#9

AW: Seltsames Memo LoadFomFile inculde Phänomen

  Alt 3. Okt 2014, 09:41
OT: @himitsu

Und dieses if myboolean = True then ist auch eine geährliche Angelegenheit.

Könntest Du mal aufhören, ständig diesen Unsinn zu posten?
Nein, weil es kein Unsinn ist!
Markus Kinzler
  Mit Zitat antworten Zitat
Benutzerbild von Uwe Raabe
Uwe Raabe

Registriert seit: 20. Jan 2006
Ort: Lübbecke
6.776 Beiträge
 
Delphi 10.3 Rio
 
#10

AW: Seltsames Memo LoadFomFile inculde Phänomen

  Alt 3. Okt 2014, 09:48
OT: @himitsu

Und dieses if myboolean = True then ist auch eine geährliche Angelegenheit.

Könntest Du mal aufhören, ständig diesen Unsinn zu posten?
Ich bin mir jetzt nicht sicher, ob du die Aussage oder den Tippfehler meinst. Für ersteren Fall habe ich hier eine kleine Prozedur, die den Unterschied demonstriert:

Delphi-Quellcode:
procedure Main;
var
  myBoolean: Boolean;
  I: Integer;
begin
  I := 2;
  Move(I, myBoolean, Sizeof(myBoolean));
  if myBoolean = (myBoolean = true) then
    Writeln('OK!')
  else
    Writeln('Shit!');
end;
Uwe Raabe
Certified Delphi Master Developer
Embarcadero MVP
Blog: The Art of Delphi Programming
  Mit Zitat antworten Zitat
Antwort Antwort
Seite 1 von 2  1 2   

Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

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