.txt von einem ftp server auslesen

[5etH]

Hallo Zusammen,

Ich habe auf einem FTP Server eine Kundendatenbank mit Seriennummern für die Programme. Ich würde jetzt gerne diese Datenbank in ein Stringgrid speichern ohne das die .txt datei lokal gespeichert wird. Das ganze dient zur regestrierung des Programms.

Ist das denn möglich, und wenn ja wie, oder gibt es eine andere Möglichkeit, wenn sie lokal gespeichert werden muss, diese vor fremden Zugriffen zu schützen, da ja dort alle Kunden verzeichnet sind.

Vielen Dank schonmal

euer Manu

[Klaus01]

Hallo,

mit indy ftp kanst Du in einen Stream (MemoryStream) speichern.
Den MemoryStream kannst Du in die Stringlist laden TStringList.loadfromStream.

Grüße
Klaus

[5etH]

danke das werde ich mal ausprobieren

[5etH]

du meinst doch die IdIOhandlerStream1 Komponente oder ?

[Klaus01]

Zitat:

Zitat von 5etH

du meinst doch die IdIOhandlerStream1 Komponente oder ?

Nein, idFtp.get kann meines Wissens in eine Datei oder in einen Stream speichern.

Zitat:

Zitat von DelphiHilfe hat zu Indy 9.0.17

Retrieves a file using the FTP protocol.
procedure Get(const ASourceFile: string; ADest: TStream); overload;
procedure Get(const ASourceFile: string; const ADestFile: string; const ACanOverwrite: boolean); overload;

Grüße
Klaus

[5etH]

joa das hab ich jetzt benutzt und bin am testen bekomme aber eine fehlermeldung

Fehlermeldung: TStream.seek nicht implementier

Programmfragment :

Delphi-Quellcode:

procedure TReg.Button1Click(Sender: TObject);
var DB : Tstream;
begin

//...
db := Tstream.Create;
datenmodul1.idftp1.Username := 'proguser';
  datenmodul1.idftp1.Password := 'manuel13';
  datenmodul1.idftp1.Host := '10.15.121.106';
  datenmodul1.idftp1.Connect;
  datenmodul1.idftp1.Get('/DB.txt', DB, true);
  datenmodul1.idftp1.Disconnect;

kann mir da vielleicht jemand weiterhelfen

[Klaus01]

Wie immer wäre es gut die Fehlermeldung auch anzugeben.
Hast Du ja, habe ich übersehen.

Aber bei der get Version mit dem Stream gibt es die Option override nicht.
Warum definierst Du nicht:

Delphi-Quellcode:

DB : TMemoryStream;

DB:= TMemoryStream.create;

Grüße
Klaus

[5etH]

wird bei dem einladen der DB.txt der inhalt der datei oder die datei an sich in den stream geladen ?

[Klaus01]

Zitat:

Zitat von 5etH

wir bei dem einladen der inhalt der datei oder die datei an sich in den stream geladen ?

Was willst Du denn damit sagen?

Wenn Du idftp.get('\DB.txt',DB); ausführst
wird der Inhalt der DB.txt in den Stream geladen.

Grüße
Klaus

[5etH]

also wenn der inhalt eingelesen wird habe ich ja eine menge strings... aber wenn ich diese z.B. in ein gird laden will sind das ja inkompatible typen.... wie kann ich diese konvertieren