If abfrage hat bugs

[hedie]

Hallo

Ich eröffne für diese frage mal einen neuen thread (was man ja auch sollte )


Also Ich benutze folgenden code um eine Datei von einem FTP zu downloaden diese beinhaltet einen wert, sagen wir: wert.

nun soll dieser wert im programm überprüft werden wie ich es ja auch gemacht habe...
das problem, es geschieht absolut nichts.

Hier der code

Delphi-Quellcode:

procedure TForm1.actionTimer(Sender: TObject);
begin
ds := TMemoryStream.Create;
memo1.Lines.SaveToStream(ds);
ds.Position := 0;
rc.Put(ds,cn+'.log',false);
ds.Free;
ds := TMemoryStream.Create;
try
rc.Get(cn+'.log.act',ds,true);
rc.Delete(cn+'.log.act');
except
memo1.Lines.Add(timetostr(now)+' -- Error No act File Found')
end;
ds.Position := 0;
memo2.Lines.LoadFromStream(ds);
ds.Free;
value := memo2.Text;


if value = ('ejectcd') then showmessage('junge junge'); //EDIT: Vergessen
if value = 'clr' then close;                            //


memo2.Clear;

end;

rc ist der Indy FTP Client
ds ist als TStream deklariert worden
cn ist der computernamen was hier als dateinamen dient

Die aktionen sind etwas doof aber es soll bis es klapt nur ein test sein

Ich weiss echt nicht mehr weiter

hoffe sehr auf hilfe


grüsschen