AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Sprachen und Entwicklungsumgebungen Sonstige Fragen zu Delphi Delphi Bei For-Schleife und IdHttp.Post() verschwindet Label

Bei For-Schleife und IdHttp.Post() verschwindet Label

Ein Thema von Wuaegner · begonnen am 7. Aug 2005 · letzter Beitrag vom 7. Aug 2005
Antwort Antwort
Benutzerbild von Wuaegner
Wuaegner

Registriert seit: 8. Feb 2004
406 Beiträge
 
Delphi 6 Enterprise
 
#1

Bei For-Schleife und IdHttp.Post() verschwindet Label

  Alt 7. Aug 2005, 19:13
Bei meinem Code, möchte ich daten aus einer StringList an ein PHP-Script senden und nach jedem IdHTTP.Post geht meine ProgressBar1 einen Step weiter und es soll die Caption von dem Label WaitForm.LStatus verändert werden. Das Label wird aber gar nicht angezeigt. Ohne Schleife schon, also hab ich kein visible o.Ä. vergessen.
Delphi-Quellcode:
procedure TForm1.HighscoreInternetClick(Sender: TObject);
var
 PostDataStream : TStringStream;
 ParamData : TStringStream;
 s: string; // name+ punkte
 highs: TStringList;
 i: integer;
begin
 WaitForm.Visible:= true;

 {Alle privaten Plätze werden gesendet}

 PostDataStream := TStringStream.Create('');
 ParamData := TStringStream.Create('');
 ParamData.WriteString('');

 TestEngine.Highscoreladen('highscore.dat'); // Private Highscore laden

 for i:= 0 to 8 do // alle neun Plätze werden gesendet
 begin
  // Status wird angezeigt

  WaitForm.LStatus.Caption:= 'Sende Highscoreplatz Nr.'+ IntToStr(i+1);

  s:= TestEngine.FHighscorePrivat.Strings[i]; // 1. -9. Platz

  s:= StringReplace(s,' ','%20',[rfReplaceAll,rfIgnoreCase]); // Leerzeichen mit %20 ersetzen

  // name + punke an PHP Script senden
  
  IdHTTP1.Post('domain.de/highscore.php?s='+s , ParamData, PostDataStream);

  WaitForm.ProgressBar1.StepIt;
  WaitForm.LStatus.Caption:= 'Sende Highscoreplatz Nr.'+ IntToStr(i+1)+'...erfolgreich';
 end;

 ParamData.Free;
 PostDataStream.Free;

 {Neue Highscore auf PC gespeichert}
 highs:= TStringList.Create;

  // setze status
 WaitForm.LStatus.Caption:= 'Lade neue Highscore herunter...';

  highs.Text:= IdHTTP1.Get('domain.de/highscore.dat');
 try
  highs.SaveToFile(ExtractFilePath(Application.ExeName)+'highscore_net.dat');

   WaitForm.LStatus.Caption:= 'Lade neue Highscore herunter...erfolgreich';
   WaitForm.ProgressBar1.StepIt;
 finally
  highs.Free;
 end;

 {Internethighscore anzeigen}
 TestEngine.ZeigeHighscore('highscore_net.dat');

 WaitForm.LStatus.Caption:= 'Bereit...';
 WaitForm.ProgressBar1.Step:= 0;
 WaitForm.Visible:= false;
end;
Mit einer Statusbar statt einem Label passiert dasselbe, nur dass sie angezeigt wird aber ohne Caption.
Wuaegner
Gruß Flo
Unternehmensberatung
  Mit Zitat antworten Zitat
marabu

Registriert seit: 6. Apr 2005
10.109 Beiträge
 
#2

Re: Bei For-Schleife und IdHttp.Post() verschwindet Label

  Alt 7. Aug 2005, 19:38
Hallo Flo,

wenn du in der Schleife die windows message pump mit "Application.ProcessMessages" in Gang hältst und der Fehler bleibt, dann melde dich wieder.

Grüße vom marabu
  Mit Zitat antworten Zitat
Benutzerbild von Wuaegner
Wuaegner

Registriert seit: 8. Feb 2004
406 Beiträge
 
Delphi 6 Enterprise
 
#3

Re: Bei For-Schleife und IdHttp.Post() verschwindet Label

  Alt 7. Aug 2005, 19:46
Hätt ich auch selber drauf kommen können,
DANKE
Wuaegner
Gruß Flo
Unternehmensberatung
  Mit Zitat antworten Zitat
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 20:29 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz