Přepsání souboru v Delphi 6

HackForum

Přepsání souboru v Delphi 6#
Používám Delphi 6 a potřeboval bych udělat přepisování souboru jiným bez zobrazení hlášky o přepsání. Hledal jsem na google ale nic. Neví někdo? :)
(odpovědět)
Nazghul | E-mail | Website | ICQ 2363658369.10.2008 18:12
re: Přepsání souboru v Delphi 6#
jak jako prepsani? Normalen bud pres WinAPI, nebo vymaz puvodni soubor (po zjisteni, jestli existuje) a vytvor novy, ne? :)

----------
..:@]> [link] <[@:..
(odpovědět)
DjH | E-mail | Website | ICQ 319-960-8959.10.2008 18:27
re: Přepsání souboru v Delphi 6#
Spiš přes to API. Nejedná se totiž o textový soubor. Potřebuju je totiž nahradit (dělám si takovou malou instalaci, že se skopíruje soubor do určité složky a přepíše původní soubor)
(odpovědět)
Nazghul | E-mail | Website | ICQ 2363658369.10.2008 19:27
re: Přepsání souboru v Delphi 6#
A úplně bych byl nejradši, kdyby jsi mi napsal jak ten soubor, kterým se bude nahrazovat vzít z RES souboru, abych mohl šířit jen EXE :) Jedná se o DLL, INI a BMP :)
(odpovědět)
Nazghul | E-mail | Website | ICQ 2363658369.10.2008 19:30
re: Přepsání souboru v Delphi 6#
tyjo mel sem na to jednu vychytanou funkci, zrovna na tohle, ale v Delficku uz nedelam =/

----------
..:@]> [link] <[@:..
(odpovědět)
DjH | E-mail | Website | ICQ 319-960-8959.10.2008 19:51
re: Přepsání souboru v Delphi 6#
Vazne? Nebyls nahodou strasnym zastancem Delphi? Ze bych te konecne zvyklal na to C? :D
(odpovědět)
babca | 193.86.144.*9.10.2008 21:18
re: Přepsání souboru v Delphi 6#
tyjo byl... ja nevim, co se stalo :D

----------
..:@]> [link] <[@:..
(odpovědět)
DjH | E-mail | Website | ICQ 319-960-8959.10.2008 21:43
re: Přepsání souboru v Delphi 6#
Hej a nevyhrabal by si ji ještě někde? Docela dost bych to potřeboval :-)
(odpovědět)
Nazghul | E-mail | Website | ICQ 2363658369.10.2008 20:56
re: Přepsání souboru v Delphi 6#
To by me zajimalo, co jsi to na tom Googlu hledal. O helpu, ve kterem je uplne vsechno ani nemluve. Zacni cist od AssignFile a FindResource, pripadne TFileStream a TResourceStream, a udelas cokoliv si zamanes.

(odpovědět)
prc | 213.211.51.*9.10.2008 21:02
re: Přepsání souboru v Delphi 6#
2 prc: Díky, to mi bohatě stačí :)
(odpovědět)
Nazghul | E-mail | Website | ICQ 2363658369.10.2008 21:27
re: Přepsání souboru v Delphi 6#
Tak se lidi ve slepé uličce. Dostal jsem se k tomuto:

procedure TForm1.Button1Click(Sender: TObject);
var Original: File;
Prepsat: File;
begin
AssignFile(Original,'C:\Documents and Settings\Nazghul\Plocha\testovani_delphi\so
uborek.exe');
AssignFile(Prepsat,'C:\Documents and Settings\Nazghul\Plocha\souborek.exe');
FileMode := fmOpenRead;
reset(Original,1);
rewrite(Prepsat,1);
end;


Soubor na ploše pojmenovanej "souborek.exe" se sice vytvoří, ale má 0kB (prostě je prázdnej). Nevíte jak to vyřešit?
(odpovědět)
Nazghul | E-mail | Website | ICQ 2363658369.10.2008 22:16
re: Přepsání souboru v Delphi 6#
je prazdny protoze do nej nic nezapisujes.

var f1,f2: file; ch: char;

assignfile(f1, 'zdroj');
assignfile(f2, 'cil');
reset(f1);
rewrite(f2);
while not eof(f1) do
begin
read(f1, ch);
write(f2, ch);
end;
closefile(f1);
closefile(f2);


chybi mi tam testovani ioresult a lepsi by bylo pouzit blockread/blockwrite, ale o to ted nejde.

(odpovědět)
prc | 213.211.51.*10.10.2008 0:52
re: Přepsání souboru v Delphi 6#
Ale to moje je binární soubor DLL, nikoli klasický textový... Není to tam trochu jiné?
(odpovědět)
Nazghul | E-mail | Website | ICQ 23636583610.10.2008 7:20
re: Přepsání souboru v Delphi 6#
Stroji je u prdele (i kyž žádnou nemá), co v souboru je, text mu dává stejný smysl jako obrázková data nebo náhodná čísla.
Význam rozlišovat text a binární data má pouze pokud si I/O hlídá debility typu "znak EOF", "BLANK", "BELL" a podobně.
(odpovědět)
gugumaa | 195.113.79.10/10.0.10.*10.10.2008 13:42
re: Přepsání souboru v Delphi 6#
Ja tam taky nikde nepouzivam textovy soubor. Eof() by imho mel fungovat na vsech souborech, ale ruku do ohne za to nedam (v pascalu jsem nic nedelal vic nez 10 let) a ten read/write na netypovem souboru asi zarve (stacilo by zmenit typ na 'file of char') a navic to bude ukrutne pomale (ale cteni po znacich je pro zacatecniky srozumitelnejsi).

Pointa je v tom, ze musis sam nejak nacitat zdroj a zapisovat ho do ciloveho souboru.

Ciste pro kopirovani souboru do souboru muzes pouzit jednoduse CopyFile (winapi), ale pokud teda chces vytvaret soubory z resources, tak to budes muset delat "rucne" (imho nejsnadneji pomoci TFileStream a TResourceStream, jak uz jsem napsal vyse). Howg.

(odpovědět)
prc | 213.211.51.*10.10.2008 14:24
re: Přepsání souboru v Delphi 6#
Tak už jsem vyřešil práci se soubory, ale nyní poslední rada. Jelikož nemám možnost testovat na jiném PC, tak pokud si navolím jako font svého programu nějaký stažený z internetu, který nejspíš u koncového uživatele nebude, zobrazí se mu i tak? Nebo se hodí chybová hláška
(odpovědět)
Nazghul | E-mail | Website | ICQ 23636583610.10.2008 16:54
re: Přepsání souboru v Delphi 6#
kua tak tam ten font na pozadi nainstaluj, nebo pouzij klasickej font ne?!

----------
..:@]> [link] <[@:..
(odpovědět)
DjH | E-mail | Website | ICQ 319-960-89512.10.2008 19:44

Zpět
 
 
 

 
BBCode