Hi,
mein Code:

zusammenfalten · markieren

Delphi-Quellcode:

procedure TForm3.Button3Click(Sender: TObject);
var
  F: TextFile;
  S: String;
  datei : TFileStream;
begin
 Datei:=TFileStream.create(ExtractFilePath(Application.ExeName)+'\webver.txt',fmCreate);
 IdHttp1.Get('http://www.softprose.de/pub/website/webver.txt',Datei);
 AssignFile(F,datei);
  {$I-}
    Reset(F);
  {$I+}
  try
    if IOResult=0 then
    begin
      ReadLn(F, S);
      Label8.caption:=S;
    end;
  finally
  label7.Enabled:=TRUE;
  button4.enabled:=TRUE;
  CloseFile(F);
  Datei.free;
end;
end;

Zitat von Compiler:

Zeile 9: Inkompitable Typen

Wie muss ich die Typen umwandeln?

Greetz un thx

muss jetzt nicht klappen, aber nimm mal statt tfilestream file of tfilestream.

Zitat von fred.reichbier:

muss jetzt nicht klappen, aber nimm mal statt tfilestream file of tfilestream.

F1 -> AssignFile -> lesen -> verstehen -> anwenden -> glücklich werden.

Fungiert. Danke

Lösung:
datei in pchar umwandeln:

markieren

Code:

pchar(datei)

Greetz

Hai onlinehome,

AssignFile möchte als zweiten Parameter den Dateinamen als String.

Zitat von F1:

Die Prozedur weist einer Dateivariablen den Namen einer externen Datei zu.

[Edit]Ich sollte nicht schreiben und vor dem posten erst noch telefonieren.

Das kann nicht funktionieren:
procedure AssignFile(var F; FileName: string);

Doch, weil die Delphi Hilfe meint das man anstatt String auch Pchar verwenden kann:

Zitat von Delphi-Hilfe:

In Delphi können Sie mit AssignFile eine Dateivariable initialisieren. F ist eine Dateivariable eines beliebigen Dateityps. FileName enthält einen Ausdruck des Typs String bzw. Pchar (wenn die erweiterte Syntax aktiviert ist).

Ja und? Deine Variable datei ist aber vom Typ TFileStream!!! AssignFile erwartet aber als zweiten Paramter eine Zeichenkette in der der Pfad und der Name der Datei steht, die der Dateivariablen F zu gewiesen werden soll. Den Cast nach PChar mag der Kompiler zwar akzeptiren, aber funktionieren wird es nicht.

Desweitern könnte es Probleme geben, weil der FileStream die datei noch nicht geschlossen hast und du sie mit AssignFile und reset öffnen willst.

Da es sich ja eh um eine Textdatei handelt, warum nicht so:

markieren

Delphi-Quellcode:

var
  sl: TStringlist;
begin
  sl := TStringList.Create;
  try
    sl.Text := IDHTTP.Get('...');
    Label1.Caption := sl.Strings[0];
  finally
    FreeAndNil(sl);
  end;