VPF::Загрузка ресурса в RichEdit - Форум программистов

Volkogriz

Дата 25.3.2010, 18:48 (ссылка)

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

Загрузка ...

Бывалый

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

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

Доброе время суток!
Проблемма такая, при загрузки ресурса в RichEdit выбивает ошибку

Код


RichEdit line insertion error

Что не так?
Если поместить в ресурс тукстовый файл то всё хорошо но если ртф то ошибка при открытии, но сам файл загружается а потом ошибку выбивает(((

Код


procedure TForm1.Image2Click(Sender: TObject); 
var 
LinesLoad:LongWord; 
begin 
RichEdit1.Clear; 
LinesLoad:= FindResource( hInstance, 'Proj',RT_RCDATA); 
LinesLoad := LoadResource(hInstance,LinesLoad); 
begin 
RichEdit1.Lines.Add(StrPas(PChar( LinesLoad))); 
begin 
FreeResource(LinesLoad); 
end; 
end; 
end;

Зарание благодарен!
С уважением,
Volkogriz!

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

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

Volkogriz

Дата 26.3.2010, 04:50 (ссылка)

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

Загрузка ...

Бывалый

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

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

Кто нить подскажет, хотябы намекните чтоб понять гте капать.
что только не пробовал выдаёт ошибку!
подскажите плиз
Зарание благодарен!
С уважением,
Volkogriz!

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

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

Volkogriz

Дата 26.3.2010, 06:21 (ссылка)

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

Загрузка ...

Бывалый

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

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

Всем спасибо разабрался спустя ночь)))

Код


var
LinesLoad:LongWord;
LinesStream:TStringStream;
begin
RichEdit1.Clear;
begin
LinesLoad:= FindResource( hInstance, 'Proj',RT_RCDATA);
LinesLoad := LoadResource(hInstance,LinesLoad);
LinesStream:=TStringStream.create(StrPas(PChar( LinesLoad)));
begin
richedit1.Lines.LoadFromStream(LinesStream);
begin
LinesStream.free;
FreeResource(LinesLoad);
end;
end;
end;
end;

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

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

Gwire

Дата 26.3.2010, 13:30 (ссылка)

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

Загрузка ...

Бывалый

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

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

Может вот так было бы проще? smile

Код


var RS: TResourceStream;
begin
    RS:= TResourceStream.Create( hInstance, 'Proj', RT_RCDATA );
    RichEdit1.Lines.LoadFromStream( RS );
    RS.Free;
end;

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