[es] - Uzimanje podataka

CYber LinK

Član broj: 49303
Poruke: 8
195.29.44.*

Profil

^{16.04.2005. u 08:44 - pre 243 meseci}

Evo imam jedan specifičan problem, naime radi seo preuzimanju podataka iz određenog foldera. Napravio sam malu mail aplikaciju koja bi trebala uzetu neke *.dbf datoteke iz foldera zipati ju i poslati na određeni mail. Ali kako da napravim da uzima određene filove koje ja kažem tj. u određenom vremenskom periodu. Npr. od 4-6.04.2005. a file-ovi počinju s D00504.*.dbf ?

-...a šta sada!!!-

Odgovor na temu

sasas
Saša Slavnić
radim za neke švabe

Član broj: 35478
Poruke: 617
195.246.3.*

Profil

Re: Uzimanje podataka

^{16.04.2005. u 08:52 - pre 243 meseci}

Mogu ti pomoći FindFirst i FindNext funkcije. U helpu su super objašnjene...
Nešto što tebi treba (ako sam te dobro razumeo) bi izgledalo otprilike ovako:

Code:

procedure FindMyFiles;
var
  f: TSearchRec;
begin
  if FindFirst('c:\temp\D00504.*.dbf', faAnyFile, f) then
  begin
    repeat
      if (f.Time > NekiMinDatum) and (f.Time < NekiMaxDatum) then
      begin
        //whatever you want to do
      end;
    until FindNext(f) <> 0;
    FindClose(f);
  end;
end;

ss.

When something is hard to do, then it's not worth doing.

Odgovor na temu

CYber LinK

Član broj: 49303
Poruke: 8
195.29.44.*

Profil

Re: Uzimanje podataka

^{16.04.2005. u 09:26 - pre 243 meseci}

Dobro to bi mi pomoglo ali kako bi to napravio uz pomoć "Date time picker" tj. da pomoću njih odaberem period i onda sam kliknem i on ih zipa. i šaljem ih negdje.

-...a šta sada!!!-

Odgovor na temu

sasas
Saša Slavnić
radim za neke švabe

Član broj: 35478
Poruke: 617
195.246.3.*

Profil

Re: Uzimanje podataka

^{16.04.2005. u 09:51 - pre 243 meseci}

Code:

if (f.Time > NekiMinDatum) and (f.Time < NekiMaxDatum) then

u ovoj liniji zameniš 'NekiMinDatum' sa 'DateTimePicker1.Date', 'NekiMaxDatum' sa 'DateTimePicker2.Date' i to bi bilo to.

ss.

When something is hard to do, then it's not worth doing.

Odgovor na temu

_v!rus_
BGD

Član broj: 40451
Poruke: 313
*.vdial.verat.net.

+1 Profil

Re: Uzimanje podataka

^{16.04.2005. u 09:56 - pre 243 meseci}

Pa stavi na formu dva dtPicker-a, i nazovi ih DtOd i DtDo. Zartik koristi sasin kod, samo prepravi NekiMinDatum u DtOd.Date i NekiMaxDatum u DtDo.Date. Ili mu pre celog bloka daj da je NekiMinDatum := DtOd.Date...

. Moze i proveru dal li je DtOd < DtDo i kolika je razlika u danima (DtDo - DtOd), da ti korisnickom greskom ne napravi fajl > 20Mb. Sto se slanja tice zavisi sta ti treba: Moze sa Indy komponentama da saljes na ftp, ili da uspostavis TCP/IP konekciju direktno izmedju klijenta i servera, naravno, ukoliko su oba kompa istovremeno na nekoj mrezi (LAN, Internet...). Imas po netu, proguglaj malo, i gomilu biblioteka za arhiviranje, ne bi bilo lose zbog manjeg protoka i bolje provere gresaka pri transportu (sve arhive imaju CRC check), za svaki slucaj, da ga ne radis rucno.

A ustvari, ni ne treba ti nikakva biblioteka, uz pkzip i pkunzip.exe: Napravis bat fajl sa necim kao:

Code:

c:
cd MojProgram\Db
pkzip - a %1.zip %2.dbf

Pokrenes ga sa WinExec ili cime vec(pakuj.bat arhiva0103 dbxyz).

Odgovor na temu

CYber LinK

Član broj: 49303
Poruke: 8
195.29.44.*

Profil

Re: Uzimanje podataka

^{16.04.2005. u 13:55 - pre 243 meseci}

Ne radi mi to, ne znam zašto....

?

-...a šta sada!!!-

Odgovor na temu

Nemanja Avramović
Engineering Manager
MENU Technologies
Beograd, Srbija

Član broj: 32202
Poruke: 4392
*.yu1.net.

Sajt: https://avramovic.info

+46 Profil

Re: Uzimanje podataka

^{16.04.2005. u 13:57 - pre 243 meseci}

malo nevezano za temu, ali opet ima veze ;)

@CYber LinK: kako saljes bilo sta na mail (naravno, direktno, ne koristeci Outlook ili sta vec)?

A za zipovanje ja koristim (Delphi6) VCL komponentu zvanu ZIPForge, i perfektno radi. Samo sto se tesko nalazi za download (ja sam je svojevremeno jedva nasao)...

Laravel Srbija.

_{[NE PRUŽAM PODRŠKU ZA PHP PREKO PRIVATNIH PORUKA!]}

Odgovor na temu