| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Мастера и любители прошу обратить внимание на данный код... [D7, Win2k]

NewGuest ©   (2003-01-26 10:57:00) 

Он позволяет вставлять 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.

---

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

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


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

---

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

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


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

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

---

Mike_Goblin   (2003-01-26 11:02:00) [3]

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

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

---

Наверх