Baires - moj prvi program za resize gomile slika

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Hvala. Igrajte se malo. Ako vidite neki bug, bilo bi lepo da mi odmah napomente da bih mogao da popravim i izbacim 1.0

Mislim da Maintain Aspect Ratio, na custom rezoluciji ne radi najbolje. Nekad radi nekad ne. Moracu da istestiram bolje.

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Nazalost imam stariju verziju Lazarusa tako da nisam uspeo sa namerom da ga kompajliram direktno iz sourcea. Takodje imam problema sa downloadom binarne verzije sa gornjeg linka. Download se prekida na 41kb. Sad isprobavam sa wgetom... Nadam se da ce tako uspeti.

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

@ Bocke

I meni je prekidao download.
Moras pokusavati vise puta...

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Cak ni tako nije uspelo... Prekida na skoro svakih 10/20kb.. Beli, jel mozes da okacis binarnu verziju na neki drugi server, molim te.

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Ne, nemam drugi server, ali ovo je jako cudno. Varnus server je na YRHost-u koji ima veliki protok. Skidam sa preko 290 KB/s (max mog modema). Mozda je glitch negde kod telekoma.

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

@beli0135
FProgramFolder := IncludeTrailingBackslash(ExtractFileDir(Application.ExeName));
Application.ExeName ne radi kako treba na Linuxu, a ni na Windowsu nece raditi ukoliko se pakuje UPX-om.

Evo funkcije koja sigurno radi:
function origpath: string;
var
  tmp: string;
begin
  tmp := StrPas(argv[0]);
  tmp := ExpandFileName(tmp);
  tmp := ExtractFileDir(tmp);
  tmp := IncludeTrailingPathDelimiter(tmp);
  result := tmp;
end;
Razbijao sam glavu dosta oko ovoga dok nisam ukapirao da je path najbolje pokupiti iz komande kojom je startovan program.

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Postoji bug oko povecavanja slika... Recimo da imas odredjeni broj slika 800x600 i zelis da ih povecas na 1024x768... Canvas (platno) slike ce biti uvecano, ali ne i sama slika. Takodje, nisam imao srece sa smanjivanjem na custom dimenzije... Pogotovo ako je jedna dimenzija veca od prvobitne.

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Uloguj se preko Facebooka da bi skinuo fajl:

Sto rece neko sa Windows downloada - i meni je radio crop umesto resize.

A posto si ga vec razdelio pod GPL ja sam malo prchkao po source kodu

Promenio sam ti funkciju ResizeImage (iz unProcess.pas), i zalepio nov 'aspect ratio'. Kod mene radilo fino. Takodje imas izmenu - sada konfiguracije cuva u $HOME/.baires.conf na Linuxu.
btw: Nisam mnogo gledao koje sve fajlove cuva. Ako je to jedini, trebalo bi da bude sve ok.
Evo source sa izmenama, pa ti ubaci ako ti se nesto svidja
https://www.mycity.rs/must-login.png

Ne smeta ti valjda sto se igram sa tvojim kodom?
Meni je bas prijalo da ceprkam po Pascalu. Nisam ukljucio Delphi jedno dobre 3 godine.
p.s.: Imaj u vidu da ja piskaram programcice samo iz zezanja kada se smejes kodovima

Dopuna: 06 Sep 2006 5:11

E, da, primetio sam da sa ponekom .jpg slikom fpc brljavi.
Sa najvecom vecinom radi dobro.

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

S obzirom da sam program napravio za 3 pauze za rucak, i super je

@Bocke, videcu da doteram code. Anarki je nesto prepravljao pa cu da vidim kako radi, i da dodam nesto.
Video sam da sam izgubio deo code-a koji daje aspect ratio, pa cu to da popravim.

@Anarki
GPL... sto znaci da mozes da prepravljas koliko hoces, doklegod mi posaljes izmene, hehe.. Ma naravno da mi ne smeta da prchkas po code-u. Zato je source i okacen, jer je poznato da open-source bolje radi od closed-source (ne znam gde sam ovo cuo )

Videcu da prepravim ovo, pa cu da posaljem update.