Newsgroup: it.comp.lang.delphi
Titolo: TmemoryStream.saveToFile...

Ciao a tutti del NG, vorrei avere una delucidazione su il non
funzionamento di questo con i file di testo.
Mi spiego meglio, Creato, settato nella dimensione giusta, io ho il mio
bel TMemoryStream pronto per scriverci su,
una string (ho provato anche con un array di char). Mi appresto a
salvare il tutto e quando vado a rileggere quanto salvato su file mi si
presenta indecifrabile. Perche?
setLength(ChArray,length(info));
        for I := 0 to length(info)- 1 do
            ChArray[I]:= info[I+1];
        Settings.SetSize(last + length(ChArray));
        Settings.Write(ChArray, length(ChArray));
        Settings.SaveToFile(MailAgentF.Current_User.File_Settings);
        Settings.Free;
Grazie a tutti coloro che riusciranno a far rischiarare le nubi che mi
ottenebrano il cervello!!
By    Enri's

         Settings.Write(ChArray, length(ChArray));
           Settings.Seek(0, soFromBeginning);


{MSX} wrote: > Credo che manchi una linea.. la metto sotto. > Non sono sicuro che vada, ma dovrebbe.. fammi sapere, che forse questa la > metto nelle FAQ > > setLength(ChArray,length(info)); > >         for I := 0 to length(info)- 1 do > >             ChArray[I]:= info[I+1]; > >         Settings.SetSize(last + length(ChArray)); > >         Settings.Write(ChArray, length(ChArray)); >            Settings.Seek(0, soFromBeginning); > <<<<<<<<<<<<<<<<<<< > >         Settings.SaveToFile(MailAgentF.Current_User.File_Settings); > >         Settings.Free; > > Grazie a tutti coloro che riusciranno a far rischiarare le nubi che mi > > ottenebrano il cervello!! > > By    Enri's Purtroppo non   neanche questo, per chiarimento vi mando anche la scritta originale e quella ottenuta: iol UserEdit PaswEdit;  che potrebbe essere un boun modo per criptare i messaggi, ma a me interesserebbe di pi  leggere il contenuto, in questo momento ^_____^  !! Grazie lo stesso, By Enri'S 

 wrote in message 3BE55840...@libero.it...

Ti posto la prova che ho fatto e a me funge
procedure TFMain.Button3Click(Sender: TObject);
Const MaxSize=21;
var
  TempStream : TMemoryStream;
  xS:array[0..MAXSIZE] of Char;
  info: String;
  I: Integer;
begin
  TempStream := TMemoryStream.Create;
  Try
    Info := 'iol UserEdit PaswEdit';
    strpcopy(xS, Info);
    i:= Length(xS);
    TempStream.SetSize(I);
    TempStream.Write(xS, I);
    TempStream.saveToFile('C:\pippo.txt');
  finally
    TempStream.free;
  end;
end;
Saluti


Ho fatto un pochino di prove in questo modo puoi scrivere quello che vuoi...
almeno credo...
procedure TForm1.Button2Click(Sender: TObject);
  TempStream : TMemoryStream;
  info: String;
begin
  TempStream := TMemoryStream.Create;
  Try
    Info := 'iol UserEdit PaswEdit';
    i:= Length(Info);
    TempStream.SetSize(I);
    TempStream.WriteBuffer(Pointer(Info)^, I);
    TempStream.saveToFile('C:\pippo.txt');
  finally
    TempStream.free;
  end;
end;
Saluti
-- 
Posted from 
hwadsl-213-155-195-162.telvia.it
 [213.155.195.162] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

Nea wrote:

Ciao Nea, ti rigrazio per l'interessamento. Per ora non ho il tempo di provare,
causa scuola, quanto da te scritto, ma nel fine settimana mi metterò d'impegno e
poi ti farò sapere. Ad ogni modo quest'ultimo metodo mi sembra molto
interessante.
Grazie mille,
            By Enri'S