Uzimanje podataka

Uzimanje podataka 16.04.2005. u 09:44 · pre 262 meseca #1

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 ?

Potpis

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

Re: Uzimanje podataka 16.04.2005. u 09:52 · pre 262 meseca #2

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.

Potpis

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

Re: Uzimanje podataka 16.04.2005. u 10:26 · pre 262 meseca #3

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.

Potpis

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

Re: Uzimanje podataka 16.04.2005. u 10:51 · pre 262 meseca #4

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.

Potpis

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

Re: Uzimanje podataka 16.04.2005. u 10:56 · pre 262 meseca #5

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).

Re: Uzimanje podataka 16.04.2005. u 14:55 · pre 262 meseca #6

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

?

Potpis

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

Re: Uzimanje podataka 16.04.2005. u 14:57 · pre 262 meseca #7

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)...

Potpis

Laravel Srbija.

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

Forum kao aplikacija na telefonu

Srodne teme