[ ITman @ 28.10.2004. 00:38 ] @
Izbacuje mi poruku 'Out of memory', kontam da je to cest sl. sa losom for petljom,
ali sada ili sam mrtav umoran da bih sam video ili... sta ciniti?

Evo koda:

procedure TfrmUbaciPutanje.UbaciUBazu(Sender: TObject);
var i:integer;
begin

for i:=0 to brPutanje-1 do
begin
UbaciSlike.Parameters.ParamValues['slika']:=Putanje;
UbaciSlike.Parameters.ParamValues['ID_sesije']:=StrToInt(edtIDS.text);
UbaciSlike.ExecSQL;
end;

end;

Proverio sam granice, nema probijanja, da li je do upita koji je u petlji? Inace upit radi van petlje, ali potrebno mi je da sacuvam putanje do slika u bazi (listam ih iz foldera, tj. imam listu) pa sam hteo to malo da automatizujem for petljom...

promenljiva brPutanje je deklarisana kao globalna, kao i niz
Putanje: array[1..20] of String, gde mi se nalaze putanje do slika.
[ sasas @ 28.10.2004. 08:17 ] @
Nije mi se ovako nesto nikad desavalo, ali mozda ce pomoci da pre for petlje stavis:

UbaciSlike.Prepare;

i nakon for petlje:

UbaciSlike.UnPrepare;

Bez ovog, delphi za svaki execsql uradi prepare/unprepare, sto u najmanju ruku usporava aplikaciju.

koliko puta prolazis kroz petlju? mozda da povremeno uradis:

FreeAndNil(UbaciSlike);
UbaciSlike := TADOCommand.Create... //ili sta ti je vec UbaciSlike

ako nista ne pomaze, koristi proverenu microsoft taktiku: trazi od svih klijenata da imaju 2gb rama

ss
[ Milos D @ 28.10.2004. 18:22 ] @
Verovatno treba putanje, a ne samo putanje. Ali da li to resava glavni problem, ne znam.

EDIT: ahm, zaboravi, ono tvoje
Code:
[i]
je ovde protumaceno kao "predji u italik" bas kao i ovo moje, pa se ne vidi...
[ ITman @ 28.10.2004. 19:11 ] @
Hvala Vam na savetima! U svakom slucaju ce mi dobro doci, uspeo sam. Intersantno
promenljiva brPutanje je bila pogresno napisana (treba brPutanja), ali debugger
nije prijavio gresku, vec je pustio da se pogram izvrsi i kada bi pokrenuo petlju
prijavljivao je 'Out of memory'. Danas sam pokrenuo Delphi 6 i hteo sam da primenim ove Vase savete, but debugger mi je prijavio greske(ali neke gluposti) i nije se pokrenuo program, posle nekog vremena pesice sam naisao na ovu banalnu gresku...

Naravucenije: U sitne sate ne veruj nikome, pa ni debugger-u! :)