VPF::TMemoryStream и Memo1 - Форум программистов

Volkogriz

Дата 9.1.2013, 11:11 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 216
Регистрация: 16.9.2007

Репутация: 1
Всего: 1

Доброе время суток!
Помогите вывести MemoryStream в Memo1 не выходит ни как(

Код


var
  password: string;

function TForm1.chislo: integer;
var
 i:integer;
begin
 for i:=0 to Length(password) do
  result:=result+Ord(password[i])+17;
end;

procedure TForm1.FormCreate(Sender: TObject);
var
 d:byte;
 w,i:integer;
 ms,msk: TMemoryStream;
 MemoryStream, SecStream:TMemoryStream;
 len: integer;
 begin
MemoryStream:=TMemoryStream.Create;
begin
 password:=Trim('djcf78nf0a9sl34');
 ms:=TMemoryStream.Create;
 msk:=TMemoryStream.Create;
 ms.SetSize(ms.Size);
 msk.SetSize(msk.Size);
 ms.LoadFromFile('coded_1.txt');
 for i:=0 to ms.Size-1 do
  begin
   ms.Position:=i;
   msk.Position:=i;
   ms.Read(d,1);
   d:=d-((i*85)-i+chislo+28*i+(2*i+5-i-1));
   msk.Write(d,1);
   end;
Memo1.Lines.LoadFromStream(msk);
ms.Free;
msk.Free;
end;
end;

С уважением,
Volkogriz!

--------------------

("`-''-/").___..--''"`-._`6_6 ) ,,,`-. ( ''' ).` "_-.__.')(_Y_.)' ._''' ) `._ `. ``-.__'.-'_..`--'_..-_/'''/--'_.' ,'(il).-'''''(li).' ((!.-'

Illusion Dolphin

Дата 9.1.2013, 11:14 (ссылка)

(голосов:1)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 1198
Регистрация: 3.5.2003

Репутация: 36
Всего: 63

Цитата

Memo1.Lines.LoadFromStream(msk);

Заменить на:

Код


msk.Seek(0, soFromBeginning);
Memo1.Lines.LoadFromStream(msk);

--------------------

В мире всего две бесконечности: вселенная и человеческая глупость... На счёт вселенной я не уверен.
Шифрование и организация фотографий - Photo Database 4.5

Volkogriz

Дата 9.1.2013, 11:17 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 216
Регистрация: 16.9.2007

Репутация: 1
Всего: 1

Огромное спасибо!
Мудрил четыре часа, запутолся полностью решил помощи ппопросить,
И не прошло минуты как помогли!!

--------------------

("`-''-/").___..--''"`-._`6_6 ) ,,,`-. ( ''' ).` "_-.__.')(_Y_.)' ._''' ) `._ `. ``-.__'.-'_..`--'_..-_/'''/--'_.' ,'(il).-'''''(li).' ((!.-'

Alexeis

Дата 9.1.2013, 11:22 (ссылка)

(нет голосов)

Загрузка ...

Амеба

Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 109
Всего: 459

Попробуйте перед
Memo1.Lines.LoadFromStream(msk);

сделать

msk.Position:=0;

Если в msk реально что-то есть (это можно сделать сохранив содержимое в файл перед выводом на экран) и оно может интерпретироваться как текст, то будет загружено.

Добавлено через 45 секунд
упс, опоздал smile

--------------------

Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

гениальность идеи состоит в том, что ее невозможно придумать

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »