dsk:
StalkerSoftware
Цитата:
Так пойдет?
Код:
StalkerSoftware
Цитата:
| Есть данные которые находятся в TMemoryStream. Соответственно мне надо как то в эти параметрах указать сами данные (rgpbToBeSigned) и их размер (rgcbToBeSigned) взятые из TMemoryStream. Но как их правильно задать я не знаю. Нужна помощь ... |
Так пойдет?
Код:
| procedure TForm1.Button1Click(Sender: TObject); var ms:TMemoryStream; str:String; i:Integer; arr:PByte; begin ms:=TMemoryStream.Create; ms.LoadFromFile('c:\1\x.bpl'); arr:=ms.Memory; for i := 0 to 2 do str:=str+char(arr[i]); ShowMessage(str); // выдаст MZP - 3 первых байта в файле ShowMessage(IntToStr(ms.Size)); // выдаст 32768-размер файла ms.Free; end; |