News aktualisieren

[CG2003]

Hallo Leute!

Ich hab da irgendwie ein großes Problem:

Also, ich hab auf meiner neuen Homepage eine Art Newsticker und möchte nun
mittels Delphi-Programm den Inhalt dieses Newstickers aktualisieren
Ich habe zwei HTML Tags in meiner Seite und will das so realisieren:

1.) HTML-Dokument herunterladen
2.) Inhalt zwischen den beiden Tags auslesen
3.) Ausgelesenen Inhalt in ein TEdit einfügen
4.) Inhalt über das Edit ändern
5.) Inhalt des Edits zwischen die beiden Tags einfügen
6.) HTML-Dokument per FTP auf den Webserver hochladen

Also, ich hab' alles hinbekommen bis auf die Punkte 2-5!
Ich hoffe Ihr könnt mir weiterhelfen ich hab hier auch schon einiges gefunden,
aber nichts führte zum Erfolg! Leider!

Vielen Dank für Eure Hilfe schon mal im voraus!

[sCrAPt]

hiho

Schau mal nach copy()

:angle:, sCrAPt

[CG2003]

Mit Copy hab ich's probiert, aber das klappt irgendwie nicht!

[sCrAPt]

dann zeig mir mal beide code's (die HTML-Seite und wo du zwischen den 2 Tags die News änderst), sonst wirds für mich sehr schwer dir zu helfen :/

:angle:, sCrAPt

[CG2003]

Hier wird der Inhalt zwischen den beiden ContentNET-Tags auf ein TEdit ausgegeben:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
const TmpFileName='c:\temp_adp.newandhot';
var
rawHTM, buffer : string;
NewAndHotHTMFile : TextFile;
iStart, iStop : integer;
begin
   Memo1.Lines.LoadFromFile('temp.html');
   AssignFile(NewAndHotHTMFile, ExtractFilePath(Application.Exename) + 'temp.html');
   Reset(NewAndHotHTMFile);
      while not EOF(NewAndHotHTMFile) do begin
        ReadLn(NewAndHotHTMFile, buffer);
        rawHTM := Concat(rawHTM, buffer);
      end;
      iStart := Pos('',rawHTM) + Length('');
      iStop := Pos('</!--ContentNET1-->',rawHTM);
      Edit1.Text := Copy(rawHTM, iStart, iStop-iStart);
      CloseFile(NewAndHotHTMFile);
      DeleteFile(TmpFileName)

Nun muß ich nur noch den Inhalt beider Tags ändern können!