IeHttp Problem mit txt file vergleichen

[mOzZzI]

Hi,
ich habe ein Problem, ich möchte eine Updatefunktion in mein Programm einfügen, aber irgendwie bringt er einen Fehler wenn ich mein Programm compilieren möchte...

Delphi-Quellcode:

const version = '1.5.0';
...
procedure TForm1.Button1Click(Sender: TObject);
begin
if iehttp1.ExecuteURL('http://www.luphisoft.de/toolbar/version.txt') <> version
then
begin showmessage('ok') end
else showmessage('no');
end;

Zitat:

Zitat von Compiler

[Fehler] Unit1.pas(33): Inkompatible Typen: 'String' und 'procedure, untyped pointer or untyped parameter'

Grüße Philipp

[Klaus01]

kann es sein das ExecuteURL als Result eine StringList o.ä liefert
und deine StringVariable nicht dazu passt?

Grüße
Klaus

[mOzZzI]

Zitat:

Zitat von Klaus01

kann es sein das ExecuteURL als Result eine StringList o.ä liefert
und deine StringVariable nicht dazu passt?

Grüße
Klaus

Delphi-Quellcode:

iehttp1.ExecuteUrl(url : String)

[Klaus01]

iehttp1.ExecuteUrl(url : String) ja als Parameter
aber was liefert iehttp1.Execute zurück als Ergebnis?

function ExecuteUrl(url:String):xxxxx

Grüße
Klaus

[mOzZzI]

Zitat:

Zitat von Klaus01

iehttp1.ExecuteUrl(url : String) ja als Parameter
aber was liefert iehttp1.Execute zurück als Ergebnis?

Grüße
Klaus

Er gibt einen String als Ergebnis

[Klaus01]

aha, aber warum bringt Dein Compliler dann einen Fehler?

Grüße
Klaus

[mOzZzI]

Zitat:

Zitat von Klaus01

aha, aber warum bringt Dein Compliler dann einen Fehler?

Grüße
Klaus

Ich geb dir mal die Hilfe,
http://www.luphisoft.de/temp/help.html

[Klaus01]

ie1.ExecuteURL('http://www.myserver.com/script1.php?var1=1');
showmessage(ie1.sl.text); //show the results


von dieser Homepage ->http://www.badfan.com/delphi/TIE_http_https.html

und das schaut nach stringlist aus,oder?

Grüße
Klaus

[mOzZzI]

Zitat:

Zitat von Klaus01

ie1.ExecuteURL('http://www.myserver.com/script1.php?var1=1');
showmessage(ie1.sl.text); //show the results


von dieser Homepage ->http://www.badfan.com/delphi/TIE_http_https.html

und das schaut nach stringlist aus,oder?

Grüße
Klaus

Und wie bekomme ich das gebacken?

Meine version.txt ist so

Zitat:

1.5.0

[Klaus01]

Delphi-Quellcode:

if

iehttp1.ExecuteURL('http://www.luphisoft.de/toolbar/version.txt').sl.text <> version then


oder

Delphi-Quellcode:

iehttp1.ExecuteURL('http://www.luphisoft.de/toolbar/version.txt');
if iehttp1.sl.text <> version then

Grüße
Klaus

[mOzZzI]

Zitat:

Zitat von Klaus01

Delphi-Quellcode:

if

iehttp1.ExecuteURL('http://www.luphisoft.de/toolbar/version.txt').sl.text <> version then


oder

Delphi-Quellcode:

iehttp1.ExecuteURL('http://www.luphisoft.de/toolbar/version.txt');
if iehttp1.sl.text <> version then

Grüße
Klaus

Haab ein Problem er gibt immer "ok" zurück egal was in der version.txt steht... :gruebel:

Delphi-Quellcode:

const version = '1.5.0'
...
procedure TForm1.Button1Click(Sender: TObject);
begin
iehttp1.ExecuteURL('http://www.luphisoft.de/toolbar/version.txt');
if iehttp1.sl.Text <> version then
 Edit1.Text:='ok'
else Edit1.Text:='no';
end;

Zitat:

Zitat von version.txt

1.5.1

Aber er gibt immer ok zurück

[Klaus01]

Hast Du schon mal geschaut was Dir

Delphi-Quellcode:

iehttp1.sl.Text

zurückliefert, kannst Du dir ja ctrl-f5 anschauen
oder mal in einem TMemo ausgeben?
Vielleicht fällt es ja auf warum immer ein o.k kommt.

Ausserdem prüfst du auf Ungleichheit. d.h wenn iehttp1.sl.Text <> version ist
kommt o.k. zurück.

Delphi-Quellcode:

if iehttp1.sl.Text <> version then 
  Edit1.Text:='ok' 
else 
  Edit1.Text:='no';

[mOzZzI]

Zitat:

Zitat von Klaus01

Hast Du schon mal geschaut was Dir

Delphi-Quellcode:

iehttp1.sl.Text

zurückliefert, kannst Du dir ja ctrl-f5 anschauen
oder mal in einem TMemo ausgeben?
Vielleicht fällt es ja auf warum immer ein o.k kommt.

Ausserdem prüfst du auf Ungleichheit. d.h wenn iehttp1.sl.Text <> version ist
kommt o.k. zurück.

Delphi-Quellcode:

if iehttp1.sl.Text <> version then 
  Edit1.Text:='ok' 
else 
  Edit1.Text:='no';

ich bin doof, hab den fehler gefunden :wall: