[es] - Ucitavanje fajlova na cudan nacin!

Passwd

Član broj: 54624
Poruke: 640
*.adsl.net.t-com.hr.

Profil

^{24.08.2005. u 15:06 - pre 227 meseci}

Ovako, nesto pokusavam napravit al ne znam kako..
Uglavnom kako .exe fajl ucitati (ne pokrenuti) vec ga ucitat i rastavit na bitove/bajtove!

Znaci ako postoji neki fajl proba.exe, program ga ucita kao:

001910128902109289743909098039032823782848040284787482

Tako nesto!!

Znam da je malo glupo al je potrebno!

Unaprijed zahvalan...

Odgovor na temu

Passwd

Član broj: 54624
Poruke: 640
*.adsl.net.t-com.hr.

Profil

Re: Ucitavanje fajlova na cudan nacin!

^{24.08.2005. u 17:13 - pre 227 meseci}

Dosta hitno

Odgovor na temu

Burgos
Nemanja Borić
Amazon Web Services
Berlin

Član broj: 12484
Poruke: 1947
*.smin.sezampro.yu.

Sajt: stackoverflow.com/users/1..

+480 Profil

Re: Ucitavanje fajlova na cudan nacin!

^{24.08.2005. u 17:59 - pre 227 meseci}

http://www.experts-exchange.co...nguages/Delphi/Q_21318238.html

Odgovor na temu

Passwd

Član broj: 54624
Poruke: 640
*.adsl.net.t-com.hr.

Profil

Re: Ucitavanje fajlova na cudan nacin!

^{25.08.2005. u 12:43 - pre 227 meseci}

Hm..evo koda:

Code:

procedure TForm1.Button1Click(Sender: TObject);
var f:file;
zn:char;
kod:string;
begin
assignfile(f,'c:\neki_program.exe');
kod:='';
while not eof(f) do
begin
blockread(f,zn,1);
kod:=kod+zn;
end;
memo1.text:=memo1.text+kod;
end;

I javlja mi ovu gresku kad stisnem button : I/O error 103..u cem je problem??

Odgovor na temu

Toyo

Član broj: 45193
Poruke: 227
*.kovnet.co.yu.

+1 Profil

Re: Ucitavanje fajlova na cudan nacin!

^{25.08.2005. u 13:17 - pre 227 meseci}

Stavi reset iza assign

Odgovor na temu

Passwd

Član broj: 54624
Poruke: 640
*.adsl.net.t-com.hr.

Profil

Re: Ucitavanje fajlova na cudan nacin!

^{25.08.2005. u 13:26 - pre 227 meseci}

Eh, sada javlja access violation in module....

Odgovor na temu

Toyo

Član broj: 45193
Poruke: 227
*.kovnet.co.yu.

+1 Profil

Re: Ucitavanje fajlova na cudan nacin!

^{25.08.2005. u 15:24 - pre 227 meseci}

A koja ti je duzina exe fajla koji ucitavas?

Sigurno je veca nego duzina stringa. Moras da kontrolises koliko podataka smeju maksimalno da se ucitaju. Znaci nesto ovako:

duzina:=0;
while not eof(f) and (duzina<max_duzina_stringa) do
begin
inc(duzina);
read(f,ch);
...
end;

najbolje ti je nesto ovako (pisao sam napamet, pa mozda ima gresaka):

Code:

var
niz:array[1..maxduz] of byte;
f:file of byte;
begin
assignfile....
reset..
if ioresult=0
begin
  duzina:=min(filesize(f),maxduz);
  blockread(f,niz,duzina);
  closefile(f);
end;
end;

_{[Ovu poruku je menjao Toyo dana 25.08.2005. u 16:31 GMT+1]}

Odgovor na temu

Bojan Kopanja
Bojan Kopanja
Senior Web Developer, ZeusSoftware
Stara Pazova

Član broj: 6155
Poruke: 507
80.93.238.*

ICQ: 346697685
Sajt: www.zeussoftware.rs

Profil

Re: Ucitavanje fajlova na cudan nacin!

^{25.08.2005. u 17:03 - pre 227 meseci}

Za proveru IOResulta mors da odradis isto to sto je rakao Toyo, samo stavi kod izmedju na kome program moze da "pukne" {$I+} i {$I-} jer ce svejedno puci ako ne ugasis prvo ovu kompajlersku direktivu!

ex Strog

http://www.zeussoftware.rs

Odgovor na temu

Passwd

Član broj: 54624
Poruke: 640
*.adsl.net.t-com.hr.

Profil

Re: Ucitavanje fajlova na cudan nacin!

^{25.08.2005. u 18:28 - pre 227 meseci}

Heh, probao sam dodati samo closefile(f) [zaboravio sam bio na to] i umjesto f:file;
stavio sam f:file of byte; ,te sad program radi bez greske , ali svaki fajl koji ucitam u memo text ispise "MZP"...????

Odgovor na temu

Passwd

Član broj: 54624
Poruke: 640
*.adsl.net.t-com.hr.

Profil

Re: Ucitavanje fajlova na cudan nacin!

^{25.08.2005. u 19:09 - pre 227 meseci}

bit ce da treba nesto trece, naime trebam metodu s kojom pravi anti-virusi otvaraju datoteke i tako ih "rastave" na bitove i onda ako se neki niz bitova poklopi sa nizom bitova kakav ima neki virus, to je taj virus

jednostavno, al me evo malo cima

Odgovor na temu

Toyo

Član broj: 45193
Poruke: 227
*.kovnet.co.yu.

+1 Profil

Re: Ucitavanje fajlova na cudan nacin!

^{25.08.2005. u 20:08 - pre 227 meseci}

Pa ne bih rekao da je bas tako jednostavno.Fajl koji proveravas moze da bude dugacak i 1GB pa moras na sve da budes spreman. Znaci ucitavas delove fajla u memoriju i sve dok ne dodjes do kraja, a u tom memorijskom bloku gde si ucitao deo fajla, proveravas da nema virusa, samo mora da se pazi na slucaj kada se ne ucita ceo virus u blok nego je on negde na sredini izmedju 2 bloka.

Ako je naprimer duzina bloka 30000, a duzina virusa 600, ti ucitas 30600 bajtova a poredis samo prvih 30000 a zatim ako nema virusa ucitas sledecih 300600 pocevsi od 30000-e pozicije u fajlu (mora da se vrati pokazivac u fajlu za 600 nazad).

Odgovor na temu