Der DP-Wettbewerb: Die Sieger stehen fest.

[himitsu]

Ohhh ohhh, scheinbar reagiert niemand auf das 301 moved permanently (http>https) und das hinzugekommene SSL gibt auch den letzten Programmen 'nen Todesstoß.
🙈🙉🙊

[MaBuSE]

Zitat von himitsu:

Ohhh ohhh, scheinbar reagiert niemand auf das 301 moved permanently (http>https) und das hinzugekommene SSL gibt auch den letzten Programmen 'nen Todesstoß.
������

Naja, das war 2004 als diese Beiträge geschrieben wurden auch noch nicht auf der Agenda der Teilnehmer.

Und da niemand einen Wartungsvertrag abgeschlossen hat, ...

[himitsu]

Das Datenformat ist ja noch unverändert ... wäre doch witzig gewäsen, wenn nach 14 Jahren immernoch eines der Programme funktioniert hätte.

[MaBuSE]

Zitat von himitsu:

Ohhh ohhh, scheinbar reagiert niemand auf das 301 moved permanently (http>https) und das hinzugekommene SSL gibt auch den letzten Programmen 'nen Todesstoß.
🙈🙉🙊

Das ist übrigens nicht richtig.
Ich verwendete damals URLDownloadToFile diese Microsoft WINAPI Funktion läd das xml File tatsächlich runter.
Das Problem ist beim Parsen der XML Datei.

Code:

C:\Temp>z:\getDpShoutBox.exe -v
getDpShoutBox Contest ID: BB3476    / for Help -?
14.06.2018 13:35:04 - getDpShoutBox v1.0 (z:\getDpShoutBox.exe)
14.06.2018 13:35:04 - delete C:\temp\rdf.xml
14.06.2018 13:35:04 - copy "http://www.delphipraxis.net/rdf.php?shoutbox=1" to "C:\temp\rdf.xml"
14.06.2018 13:35:04 - open C:\temp\rdf.xml
Exception EIntfCastError in Modul getDpShoutBox.exe bei 00000000.
Schnittstelle nicht unterstützt.

Ich verwendete die Delphi Standard Komponente: TXMLDocument.
Der Delphi 7 Experte hat dazu eine RDF.PAS Datei erstellt. Diese scheint das Problem zu sein.
Ich vermute Das Datenformat hat sich geändert
Oder die damals (von Delphi) verwendeten WIN32 API zum XML parsen sind in W10 nicht mehr vorhanden

Im EventLog steht folgendes:

Code:

Name der fehlerhaften Anwendung: getDpShoutBox.exe, Version: 0.0.0.0, Zeitstempel: 0x2a425e19
Name des fehlerhaften Moduls: KERNELBASE.dll, Version: 10.0.14393.2189, Zeitstempel: 0x5abda7d6
Ausnahmecode: 0x0eedfade
Fehleroffset: 0x000daa12
ID des fehlerhaften Prozesses: 0x3244
Startzeit der fehlerhaften Anwendung: 0x01d403d3bd389e9a
Pfad der fehlerhaften Anwendung: z:\getDpShoutBox.exe
Pfad des fehlerhaften Moduls: C:\Windows\System32\KERNELBASE.dll
Berichtskennung: c7997a5d-d29e-4e75-b012-c5b0409cd816
Vollständiger Name des fehlerhaften Pakets: 
Anwendungs-ID, die relativ zum fehlerhaften Paket ist:

Zitat von himitsu:

Das Datenformat ist ja noch unverändert ...

Mir fällt gerade auf, das unter der URL der Shoutbox ein "normaler" RSS Newsfeed kommt "Delphi News aus aller Welt". -> https://www.delphipraxis.net/rdf.php?shoutbox=1

Wie kommst du darauf das sich das Datenformat nicht geändert hat ???
Das ist ein komplett anderes Format mit komplett anderen Inhalt !!!

Kennst du die neue URL zur shoutbox?

-> Es gibt keine.

Bei der Suche nach SoutBox in der DP war der erste Treffer eine Frage von mir in 2011.
https://www.delphipraxis.net/159704-...-shoutbox.html

Die Antwort von Daniel:

Zitat von Daniel:

Es gibt gegenwärtig keinen XML-Feed der Shoutbox.

Wie soll denn dann eines der Programme funktionieren, wenn keine Daten zur Verfügung gestellt werden ???

Zitat von himitsu:

... wäre doch witzig gewäsen, wenn nach 14 Jahren immernoch eines der Programme funktioniert hätte.

Ja wäre witzig gewesen. Aber liegt an den fehlenden xml Daten, nicht am https

[mirage228]

Yeah, Platz 10

Ok von 1,5 Stunden Arbeit hatte ich auch nicht mehr erwartet

Aber Glückwunsch dem Sieger - ist ein wirkliches tolles Programm geworden

mfG
mirage228

[Matze]

Zitat von mirage228:

Yeah, Platz 10

*zustimm* (10a)

Für mich war es eine nette Gelegenheit, mich mal ein bisschen an XML ranzutasten, das war das, was ich erreichen wollte.

Glückwunscht SirT.

Zitat von MaBuSE:

4. Sehe ich ein das es blöd was von einer Konsole zu reden -> bin halt ein Plappermaul :-/

Das ist nicht richtig, ich muss ehrlich zugeben, ich war begeistert, was man so alles mit Konsolenanwendungen machen kann! Die Idee ist schon klasse. Das muss man erst mal umsetzen...

Nur war mit SirTs Reader etwas komfortabler.

[Sanchez]

Zitat von Matze:

Zitat von MaBuSE:

4. Sehe ich ein das es blöd was von einer Konsole zu reden -> bin halt ein Plappermaul :-/

Das ist nicht richtig, ich muss ehrlich zugeben, ich war begeistert, was man so alles mit Konsolenanwendungen machen kann! Die Idee ist schon klasse. Das muss man erst mal umsetzen...

Ich glaube, was MaBuSE meinte, ist dass jeder wusste, von wem das Konsolenprogramm ist.

[Matze]

Zitat von Sanchez:

Ich glaube, was MaBuSE meinte, ist dass jeder wusste, von wem das Konsolenprogramm ist.

Mist du hast Recht. Es ist ja noch so früh *gähn*...

[MaBuSE]

Zitat von Matze:

ich muss ehrlich zugeben, ich war begeistert, was man so alles mit Konsolenanwendungen machen kann! Die Idee ist schon klasse. Das muss man erst mal umsetzen...

Hoffentlich bist Du dann nicht enttäuscht, wenn Du im Tutorial nur folgendes liest

Delphi-Quellcode:

  URLDownloadToFIle(nil, PAnsiChar(sXmlFileUrl), PAnsiChar(sXmlFileName), 0, nil);

  XmlRdf := LoadRdf(sXmlFileName);
  for i := iLines - 1 downto 0 do
  begin
    WriteLn(StrAnsiToOem(XmlRdf.Shout[i].Timestamp + ' - ' + XmlRdf.Shout[i].Username + ': ' +
         XmlRdf.Shout[i].Message));
  end;

Das ist der ganze Quelltext, der für den Feed zuständig ist. Den Rest macht Delphi vollautomatisch.

-> Aber mehr dazu im Tutorial (Bitte noch ein paar Tage Geduld)

[CalganX]

Hi,
erstmal herzlichen Glückwunsch an SirThornberry.

ABER: was ich ein wenig doof finde, ist, dass Leute sich darüber beschweren, dass XML gefordert wird. Hätte man einen Blick in die ReadMe getan (scheinbar waren einige dafür zu faul oder gar unfähig), dann wäre bei einigen Programmen dies zu Tage gekommen.

Aber nun gut, ich widme mich wieder meinen Programmen und freue mich auf Platz 10b gekommen zu sein.

Chris