Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.02.03;
Скачать: CL | DM;

Вниз

Мастера и любители прошу обратить внимание на данный код...   Найти похожие ветки 

 
NewGuest   (2003-01-26 10:57) [0]

Он позволяет вставлять bitmap в richedit, но пишет ошибку "[Warning] Unit1.pas(75): Variable "BMP" might not have been initialized "

Здесь BMP : Tbitmap

function BitmapToRTF(pict: TBitmap): string;
var
bi,bb,rtf: string;
bis,bbs: Cardinal;
achar: ShortString;
hexpict: string;
I: Integer;
begin
GetDIBSizes(pict.Handle,bis,bbs);
SetLength(bi,bis);
SetLength(bb,bbs);
GetDIB(pict.Handle,pict.Palette,PChar(bi)^,PChar(bb)^);
rtf := "{\rtf1 {\pict\dibitmap ";
SetLength(hexpict,(Length(bb) + Length(bi)) * 2);
I := 2;
for bis := 1 to Length(bi) do
begin
achar := Format("%x",[Integer(bi[bis])]);
if Length(achar) = 1 then
achar := "0" + achar;
hexpict[I-1] := achar[1];
hexpict[I] := achar[2];
Inc(I,2);
end;
for bbs := 1 to Length(bb) do
begin
achar := Format("%x",[Integer(bb[bbs])]);
if Length(achar) = 1 then
achar := "0" + achar;
hexpict[I-1] := achar[1];
hexpict[I] := achar[2];
Inc(I,2);
end;
rtf := rtf + hexpict + " }}";
Result := rtf;
end;


procedure TForm1.Button1Click(Sender: TObject);
var
SS : TStringStream;
BMP : TBitMap;

begin

BMP.LoadFromFile("1.bmp");
SS := TStringStream.Create(BitmapToRTF(BMP));
RxRichEdit1.PlainText := False;
RxRichEdit1.StreamMode := [smSelection];
RxRichEdit1.Lines.LoadFromStream(SS);
SS.Free;
BMP.Free;
end;


при выполнении программы такая вот ошибка

Project Project1.exe raised exception class EAccessViolation with message "Access violation at address 0045DB2B in module "Project1.exe". Read of address 8BD88B9F". Process stopped. Use Step or Run to continue.


 
Mike_Goblin ©   (2003-01-26 11:02) [1]

где пишет, в какой строке? может и правда Use Step or Run to continue

а вообще после бессонной ночи я вижу одно, что в обработчике события нет инициализации объектов BMP и SS


 
Романов Р.В. ©   (2003-01-26 11:03) [2]


> BMP : TBitMap;
>
> begin
>
> BMP.LoadFromFile("1.bmp");


А создавать BMP кто будет?
BMP := TBitMap.Create;

И вообще BMP.LoadFromFile("1.bmp"); должно быть внутри try, а BMP.Free; в finally.


 
NewGuest   (2003-01-26 11:10) [3]

вообще да... спасибо...
вчера очень поздно сидел, мозги вообще еле двигались...


Надеюсь этот код самы унивирсальный код по этой теме...
ещё раз спасибо.



Страницы: 1 вся ветка

Текущий архив: 2003.02.03;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.021 c
7-5308
eddy2
2002-11-25 16:41
2003.02.03
Подскажите, где в Windows хранятся данные о размерах панели задач


3-4811
Whippi
2003-01-17 15:24
2003.02.03
ADOQuery и параметры?


1-4845
TUZ_SS
2003-01-24 15:14
2003.02.03
Набор дробных чисел на цифровой клавиатуре


4-5352
valerchik
2002-12-18 10:03
2003.02.03
Как по нажатию кнопки рисовать что-нибудь на форме...


3-4788
xn0bys
2003-01-09 09:45
2003.02.03
Уважаемые, помогите...