Delphi kutak

[master037]

Pozdrav svima, posebno redakciji SK!
Mislim da deo o programiranju ne treba da ostane bez teme o jednom od bitnijih programskih jezika DELPHI. Iako vecina zna da se bazira na Pascalu pa ga ja cesto krstim kako Visual Object Pascal. Trenutna ideja dok otvaram ovaj topic je da svi oni koji se bave ovim programskim jezikom a naidju na neki problem napisu post u ovom topicu, a ne da otvaraju novi topic koji ce posle mesec da na da postane bajat. Oni iskusniji koji imaju ideju kako bi Delphi mogao da se unapredi a treba im pomoc takodje je uputno da postuju ovde i da se medjusobno obavestavamo i delimo ideje!!!

Poz svoma again!!!!

[voodoo_]

Hail Delphi!

Btw, jezik Object Pascal je od (valjda) sedme verzije okruženja zvanično prekršten u Delphi, tako da eto

Inače nemam nekih ideja oko unapređivanja Delphija, i ovako mi je dobar i koristim ga za razne primene, od sitnih programčića do ozbiljnijih projekata... zaista moćan jezik, u rangu sa C++-om, primenljiv za sve i svašta, mada ga dosta programera nipodaštava iz razloga što zna samo C++...

[bancika]

Pozdrav svima,
evo za pocetak, na www.storm-software.co.yu ima nekolicina mojih programcica u delphiju sa izvornim kodom. Ne moze da skodi, zar ne

[master037]

Ok, ideja je kao shto sam rekao zajednicka izrada odredjenih componenti i modula koji smatram da nedostaju. Ili rad na nekom zajednickom projektu...

[Reloader]

Koja je najnovija verzija i kolika je velicinski?

[Brains]

bancika kaže:

Pozdrav svima,
evo za pocetak, na www.storm-software.co.yu ima nekolicina mojih programcica u delphiju sa izvornim kodom. Ne moze da skodi, zar ne

Da li se isplati praviti shareware softver? Mislim, da li si imao kupce do sada? I kako pri tome izbeci poresko? Ja sam imao neke planove da kupim Borlandov C++ Builder, ali komercijalna verzija kosta oko $1200. Personal verzijom se ne smeju praviti programi za prodaju, ukljucujuci i shareware. Mene zanima da li imas mozda neku komercijalnu verziju ili i ti igras po tankoj zici. Ja sam odustao jer se za to moze odgovarati pred sudom. Nista, moram se baciti na MS Win API...

[voodoo_]

A što se ne prešaltaš na C# ? Čujem da je lagan ko Delphi, a jedan od ključnih ljudi .NET tehnologije je upravo mastermind Delphija, koji je napustio Borland negde oko šestice...

[Goran]

master037 kaže:

Ok, ideja je kao shto sam rekao zajednicka izrada odredjenih componenti i modula koji smatram da nedostaju. Ili rad na nekom zajednickom projektu...

A za koje komponente smatras da nedostaju? Imas neku ideju, a da vec nije napravljeno?

[Deusdies]

Imam ja jedan problem. Napravio sam jedan program koji rukovodi sa 6 baza podataka, koje sam napravio u database desktop-u i 'ozvanicio' u BDE-u. E sad, taj program ni na jednoj drugoj masini nece da radi, jer te baze podataka nigde nisu 'ozvanicene' na drugim kompjuterima. Pitanje je kako da 'ozvanicim' bazu pre pokretanja programa (tokom instalacije ili sl.), jer prilikom pokretanja programa, javi se greska "unknown database; alias VDo ///tako mi se zove jedna od baza" Fala unapred!

[Goran]

Ili kreiraj aliase i na drugom racunaru, ili ne koristi alias neko direktnu putanju do baze. Koje baze koristis?

[Devil]

Evo jos jedan program radjen u Delphi-ju 2005.

http://d.turboupload.com/d/359542/Time_is_out.exe.html

[jovica016]

Radim neki program u Delphi-ju 7, tj. klijent server aplikaciju. Sve sto mi treba sam vec isprogramirao, jedio imam problem sa fajl menadzerom. Znaci, kada klijent uspostavi vezu sa serverom, fajl menadzer treba da mi omoguci pretrazivanje hard diska, i pokretanje .exe fajlova na remote kompjuteru, tj. na kompu gde je server. Pozzz

[Goran]

Evo ti jedna funkcija koja ce u memo dodati sve fajlove i foldere odredjenog drajva:

procedure pronadji(putanja:string; lista:tstrings);
var
  sr: TSearchRec;
  F_atributi: Integer;
begin
      F_atributi:=faAnyFile;

      if findfirst(putanja+'\*.*', F_atributi, sr)=0 then
         begin
               if not (sr.Attr AND faDirectory = faDirectory) then
                  begin
                        lista.Add(putanja+'\'+sr.Name);
                  end
               else
                  begin
                        if ((sr.Name<>'.') and (sr.name<>'..')) then
                           begin
                                  lista.Add(putanja+'\'+sr.Name);
                           end;
                  end;
         end;

      while findnext(sr)=0 do
           begin
               if not (sr.Attr AND faDirectory = faDirectory) then
                  begin
                        lista.Add(putanja+'\'+sr.Name);
                  end
               else
                  begin
                        if ((sr.Name<>'.') and (sr.name<>'..')) then
                           begin
                                  lista.Add(putanja+'\'+sr.Name);
                                  pronadji(putanja+'\'+sr.name, lista);
                           end;
                  end;
           end;

      findclose(sr);
end;

Funkciju pozivas na sledeci nacin:

pronadji('D:', memo1.Lines);

Prvi parametar je drajv, a drugi je memo u koji hoces da ubaci podatke. Naravno, ovo je samo primer na brzinu sklepane funckije, ali mislim da odradjuje posao. Za tvoje potrebe, ti ces je vec prepraviti, optimizovati i ubaciti sta vec dodatno treba da radi ukoliko nadje odredjeni fajl koji trazis.

Sto se tice startovanja .exe fajlova, ja sam za startovanje winrar-a da bih bekapovao neke podatke koristio sledecu funkciju, pa probaj i ti sa tom funkcijom:

...
var
    komanda : string;   // komanda za winexec
begin
...
      komanda:='C:\Program Files\WinRAR\WinRAR.exe a -ep '+
                '"'+sys_dir+'\_arhiva\'+e_naziv_a.Text+'" '+
                '"'+sys_dir+'\baza\*.*'+'"';

      // izvrsava komandu
      winexec(pchar(komanda), SW_RESTORE);

Dakle, prouci funkciju winexec.

Nadam se da sam ti pomogao, ili te bar uputio u dalje istrazivanje za resavanje tvog problema.

[flesh005]

Potrebna mi je pomoc.Napravio sam jedan program za dugovanja i sada ne znam kako da napravim bazu da pamti sve to sto ja napisem.

[Goran]

flesh005 kaže:

Potrebna mi je pomoc.Napravio sam jedan program za dugovanja i sada ne znam kako da napravim bazu da pamti sve to sto ja napisem.

S ozbirom na tvoje pitanje, pretpostavljam da uopste nisi upoznat u rad sa bazama podataka. Tesko da ce ti neko odgovoriti i pisati tutorial za tako nesto. Za pocetak, poseti sledeci link:

http://delphi.about.com/od/database/...basecourse.htm

Na istom sajtu ces naci i veliki broj dodatnih tutoriala za Delphi. Dakle, moj savet ti je da malo proucis tutorijale, pa kad negde zapnes, postavis konkretno pitanje, (i nije lose da nabavis neku knjigu za Delphi). U suprotnom, ne verujem da ce iko da ti od nule objasnjava rad sa bazama, ipak je to malo kompleksno da bi neko gubio vreme na to. Prijateljski savet.

[jovica016]

Gorane, hvala na funkcijama, dosta su mi pomogle! Pozzz

[Goran]

jovica016 kaže:

Gorane, hvala na funkcijama, dosta su mi pomogle! Pozzz

Nema na cemu, i drugi put

[Nemanja Savic]

Pozdrav svima ljudi,
voleo bih da mi neko kaze kako da mi u Database destopu u polju datum, ubacuje datum koji je na racunaru?


Hvala

[Nemanja Savic]

Voleo bih da mi neko pomogne ako moze.Ne umem da namestim u Database desktopu da mi u polje upisuje datum koji je na racunaru.

hvala

[Goran]

Nemanja Savic kaže:

Voleo bih da mi neko pomogne ako moze.Ne umem da namestim u Database desktopu da mi u polje upisuje datum koji je na racunaru.

hvala

Nisam bas razumeo kako mislis da iz database desktopa ubacujes datum u tabelu, ali ako mislis na to kako da upises datum u tabelu iz Delphija, evo ti kod:

      table1.append;
      table1.FieldByName('DATUM').asdatetime:=date;
      table1.post;

Tim kodom dodajes novi slogu u tabelu, i u polju DATUM upisujes danasnji datum, tj. datum koji je na tvom racunaru. Dakle, funkcija date ti vraca tekuci datum.