| 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 |  |  |  236365836 | 9.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 | | | 319-960-895 | 9.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 | | | 236365836 | 9.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 | | | 236365836 | 9.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 | | | 319-960-895 | 9.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 | | | 319-960-895 | 9.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 | | | 236365836 | 9.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 | | | 236365836 | 9.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 | | | 236365836 | 9.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 | | | 236365836 | 10.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 | | | 236365836 | 10.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 | | | 319-960-895 | 12.10.2008 19:44 |
|
|
|
