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