Der DP-Wettbewerb: Die Sieger stehen fest.

[mirage228]

Yeah, Platz 10 :mrgreen:

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

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

mfG
mirage228

[Matze]

Zitat:

Zitat von mirage228

Yeah, Platz 10 :mrgreen:

*zustimm* (10a) :mrgreen:

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. :thumb:

Zitat:

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. :thumb: Das muss man erst mal umsetzen...

Nur war mit SirTs Reader etwas komfortabler. :angle2: ;)

[Sanchez]

Zitat:

Zitat von Matze

Zitat:

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. :thumb: Das muss man erst mal umsetzen...

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

[Matze]

Zitat:

Zitat von Sanchez

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

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

[MaBuSE]

Zitat:

Zitat von Matze

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

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

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. :mrgreen:

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

[CalganX]

Hi,
erstmal herzlichen Glückwunsch an SirThornberry. :thumb:

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. :evil:

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

Chris

[Gandalfus]

Was ich allgeimein schade fand war, dass es mehr ein Designwettbewerb als ein Programmierwetbewerb war.

wenns ein Interessiert eine Lösung ohne XML Komponenten:

Delphi-Quellcode:

procedure update;
var
  AngeforderteSeite: String;
  ErstellerName: string;
  ProfilLink: string;
  Zeit: string;
  Nachricht: string;
  index,count: integer;
begin
  AngeforderteSeite := IdHTTP.Get('http://www.delphipraxis.net/rdf.php?shoutbox=1');
  while Pos('<shout>', AngeforderteSeite) > 0 do
  begin
    index := pos('<username>', AngeforderteSeite)+length('<username>');
    count := pos('</username>', AngeforderteSeite)-index;
    ErstellerName := copy(AngeforderteSeite,index,count);
    index := pos('<profile>', AngeforderteSeite)+length('<profile>');
    count := pos('</profile>', AngeforderteSeite)-index;
    ProfilLink := copy(AngeforderteSeite,index,count);
    index := pos('<timestamp>', AngeforderteSeite)+length('<timestamp>');
    count := pos('</timestamp>', AngeforderteSeite)-index;
    Zeit := copy(AngeforderteSeite,index,count);
    index := pos('<![CDATA[ ', AngeforderteSeite)+length('<![CDATA[ ');
    count := pos(']]> ', AngeforderteSeite)-index;
    Nachricht := copy(AngeforderteSeite,index,count);
    delete(AngeforderteSeite,1,index+count);

    //Mache was mit ErstellerName,ProfilLink,Zeit,Nachricht   
  end;
end;

[MaBuSE]

Zitat:

Zitat von Gandalfus

Was ich allgeimein schade fand war, dass es mehr ein Designwettbewerb als ein Programmierwetbewerb war.

Was sieht der Benutzer, wenn er ein Programm startet?
Richtig: Das Design. (oder eine Fehlermeldung :mrgreen:)

Man hätte auch den Source veröffentlichen können.
Aber die Diskussion hatten wir schon.
(bitte nicht noch mal darüber diskutieren)

Ich fand den Wettbewerb toll.
Eine kleine nicht zu schwere Aufgabe.
Die Möglichkeit sich mit etwas zu befassen, was man evtl. vorher noch nicht gemacht hat.
(Datei via http downloaden, XML, ...)
Und das Ergebnis ist auch noch nützlich. (Ich verwende meinen Viewer jeden Tag)

Zitat:

Zitat von Gandalfus

wenns ein Interessiert eine Lösung ohne XML Komponenten:

Delphi-Quellcode:

procedure update;
[...]
end;

Nett. Gefällt mir. Einfach, gut strukturiert und ich gehe mal davon aus das es funktioniert.

[SirThornberry]

ich hab auch keine extra-xmlkomponente genommen sondern habs auch so geparst. Allerdings hab ichs ni so übersichtlich hinn bekommen. Aber so mit Pos (bzw. PosEx) hab ichs auch

[MaBuSE]

Zitat:

Zitat von Chakotay1308

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

Ich bin auch auf den 10. Platz gekommen :mrgreen:

Dabei sein ist alles.

i am proud to be a DP contestant

Was mich gewundert hat:
> 6000 Mitglieder
viele Diskusionen im Vorfeld
aber nur 20 Beiträge

Ich fand keines der Programme schlecht !!!