Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Мастера, СРОЧНО!!! [D6, Win95/98]

Andy BitOff © (2003-01-08 20:25:00)
Есть-ли тут ошибка?
...
const
cmd:array [1..7] of string=("2","2","c:\Asm\Project\Delphi\CreateOverviewFrame\bmp\","aq.jpg","ar.jpg","as.jpg","at.jpg");
...
try
for i:=1 to strtoint(cmd[1]) do begin
for i1:=1 to strtoint(cmd[2]) do begin
cur:=(i-1)*strtoint(cmd[1])+i1-1;
curfile:=cmd[4+cur];
Inc(No);
new1:=TPanel.Create(ScrollBox);
new1.Name:=New1.ClassName + IntToStr(No);
new:=TImage.Create(New1);
new.Name:=New.ClassName + IntToStr(No);
TImage(New).OnMouseDown:=imageMouseDown;
TImage(new).stretch:=True;
TImage(new).proportional:=True;
TImage(new).Align:=alClient;
TImage(new).OnProgress := ProgressUpdate;
if (AnsiLowerCase(extractfileext(curfile))=".jpg") or (AnsiLowerCase(extractfileext(curfile))=".jpeg") then begin
jpg:=TJPEGImage.Create;
try
jpg.LoadFromFile(cmd[3]+curfile);
TImage(new).Picture.Assign(jpg);
finally
jpg.Free;
end;
end
else TImage(new).Picture.LoadFromFile(cmd[3]+curfile);
with TPanel(new1) do begin
Height:=TImage(New).Picture.Height;
Width:=TImage(new).Picture.Height;
Caption:="";
Color:=ScrollBox.Color;
BevelInner:=bvNone;
BevelOuter:=bvNone;
width:=Ceil(TImage(new).Picture.Width / 100 *10);
Height:=Ceil(TImage(new).Picture.Height / 100 * 10);
end;
New1.Parent:=ScrollBox;
new.Parent:=TPanel(new1);
end;
end;
finally
CFile:=cmd[4];
CFileN:=1;
end;
...

Andy BitOff (2003-01-11 19:30:00) [1]
Всплываем

Andy BitOff (2003-01-11 14:02:00) [2]
На момент открытия файлов, но не в этом куске, который представлен, а в процедуре ProgressUpdate иногда выскакивает сообщение "Параметр задан неверно". Начиная с этого момента загрузка картинок останавливается, но программа отрабатывает до конца нормально.

Big_Rom (2003-01-11 06:49:00) [3]
ощибка то какая ?

Andy BitOff (2003-01-10 23:56:00) [4]
А проблема собственно не в этом куске (как оказалось), а в следующем; при возникновении ошибки и после закрытия программы есть подозрение, что в памяти остаются эти изображения (cmd[4..n]). Хотя перед выходом конечно все создпнные Image делаем как free.

Andy BitOff (2003-01-10 23:52:00) [5]
To Maksss:
А ты хочешь весь код посмотреть? Могу прислать.

Maksss (2003-01-09 02:30:00) [6]
1 гон твой код не еполный ив соответствии с твоим кодом полный бред
ошибка в первых 6 строчках у мя никак невяжутся с остальными(тобиш игнорируют твою сонст)могет я не прав!?

Maksss (2003-01-09 02:22:00) [7]
и как ты собираешся перемножить курр на стринг(не являющимся не чем кроме стринга)???

MXA (2003-01-09 02:17:00) [8]
по-моему компилятор не схавает
троеточие после end"a :)

Big_Rom (2003-01-08 22:21:00) [9]
На до тоже будет прислать чегонибудь проверить
и еще ктонибудь проверте мои ощибки в месагах :))

Kruger (2003-01-08 21:51:00) [10]
А ты не пробовал сам посмотреть, есть ли тут ошибка через компилятор? :)

Song (2003-01-08 20:29:00) [11]
:-)

Наверх

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