Brcc32.exe dosyasını bir klasöre kopyalayıp o klasöre 4000 -5000 civarında resmi atıyorum.Daha sonra
bir rc dosyası oluşturup rc dosyasında
1 RCDATA image001.jpg
tek tek belirtiyorum.
Buna göre msdosta attığım dizine geçip
brcc32 resimler.rc dediğimde res dosyası oluşuyor.
Benim şöyle bir problemim var.Gömdüğüm dosyalarıda aşağıdaki kodla çağırıyorum.
Gömdüğüm bu resimleri çağırırken web browser bileşeninde html sayfasının ismini aldırıyorum.Ona göre aralık değerlerini başka procedure'de akdırıyorum.Buna göre başarılı bir biçimde istediğim işlemi gerçekleştirdim.Ancak html sayfalarına resim eklemem gerekti.Resim ekleyip yeniden farklı isimle bir res dosyası derleyip bunu implemantation altında çağırdığımda
too many resource handle diye bir hata alıyorum.Dosyanın ismini önceki res dosyasını verdiğimde dosya benim sonradan derlediğim farklı dosya olmasına rağmen programda eski res'i görüyor.Eski res dosyasını sildim.Yine aynı problemle karşılaşıyorum..
Kod: Tümünü seç
Procedure Tform2.loadjpegdromexe;
for ri:=baslangic to bitis do
begin
ResStream := TResourceStream.CreateFromID(HInstance, ri, RT_RCDATA);
MyJPG.LoadFromStream(ResStream); // What!? Yes, that easy!
if y<10 then
begin
cresim:='image00'+inttostr(y)+'.jpg';
end;
if (y>10) and (y<100) then
begin
cresim:='image0'+inttostr(y)+'.jpg';
end;
if y>100 then
begin
cresim:='image0'+inttostr(y)+'.jpg';
end;
y:=y+1;
//Canvas.Draw(12,12,MyJPG); // draw it to see if it really worked!
myjpg.SaveToFile(eddir.Text+son2+'\'+cresim);
end;
finally
MyJPG.Free;
ResStream.Free;
end;
end; // procedure
