[Delphi]Zapisywanie w postaci tablicy bajtów tekstu.

Jak w delphi zapisać w postaci tablicy bajtów tekst?? (W c# data_byte = new byte[memStream.Length]; Źródło: LINK

---

var b:pbyte; s:string; begin s:='cośtam'; getmem(b,length(s)); strpcopy(pchar(b),s); end;lubvar b:array[0..255]of byte; s:string; begin s:='cośtam'; strpcopy(pchar(@b),s); end;
Użytkownik Cyrkiel edytował ten post 23 lipiec 2006, 12:52
Niestety nie działa to pod .NET :/ zapomniałem dodać :) sorki Potrzebne mi to do tej funkcji:

type Bytes = array of Byte; function EncryptT(sData: String): String; var Algorithm:Rijndael; crStream: CryptoStream; strWriter:StreamWriter; memStream: MemoryStream; data_str:string; key: Bytes; iv: Bytes; data_byte:array of Byte; b:array[0..255]of byte; begin Algorithm:= RijndaelManaged.Create; Algorithm.BlockSize:= 128; Algorithm.KeySize:=128; Key:=Algorithm.Key; IV:= Algorithm.IV; memStream:= MemoryStream.Create; crStream:= CryptoStream.Create(memStream, Algorithm.CreateEncryptor(Key, IV),CryptoStreamMode.Write); strWriter:=StreamWriter.Create(crStream); strWriter.Write(sData); strWriter.Close; crStream.Close; data_byte:=System.Byte.create(memStream.Length); //////TUTAJ NIE WIEM JAK ZAMIENIĆ :( memStream.Position:= 0; memStream.Read(data_byte,0,20); data_str:= UnicodeEncoding.Create.GetString(memStream); Result := data_str; end;
Użytkownik strefacst edytował ten post 23 lipiec 2006, 16:12

zanotowane.pl

doc.pisz.pl

pdf.pisz.pl

zsf.htw.pl