To z_moravec :
ohhh, děkuji moc. Uplne jsem na to zapomel :)
Příspěvky odeslané z IP adresy 213.192.8.–
To mysak :
hm , tak jsem to prepsal, a hazi mi to chybu když se pokousim uploadovat, ze soubor nemohl byt prenesen :(
diky moc, no ted jsem se ovsem dostal jeste do horsi situace. Vypis slozky s uploadem, jenze je kryta souborem .htaccess proti indexu??
dobrý den,
snažím se uploadovat soubor do cílene slozky "files" ale vzdyse mi nahraje mezi ostatni soubory(skripty) a ne do zvolene slozky...
cast kodu zde:
<?php
// zde volba složdy "files"
$destination_path = define('UPL_DIR', 'files');
$result = 0;
$target_path = $destination_path . basename( $_FILES['myfile']['name']);
if(@move_uploaded_file($_FILES['myfile']['tmp_name'], $target_path)) {
$result = 1;
}
sleep(1);
?>
pomuzete mi prosím? diky
To Sniper : Na něco takového jsem narazil, kdybych si věděl rady tak bych to udělal....
Mě by alespoň tedy akorat stačil přikaz, který bych dal tlačítku, aby vymazal složku např:
C:\Users\*UŽIVATEL*\AppData\Local\Microsoft\Windows\History
Do složky se se svým programem dostanu, ale nevím, jak udělat výmaz souborů v ní.
Tady je kus programu:
Todle mi vypíše akci do "mema-vypis", ale funguje to neefektivně, když nějakou složku chci vymazat, musím do editu "cesta" zadat celý absolutní cíl. Snažím se, aby se nemusela cesta zadat, ale po kliknutí na button, aby se rovnou vymazala
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Buttons, ShlObj, ShellApi, StdCtrls;
procedure Tovladaci_p.Button1Click(Sender: TObject);
var
APath: string;
MySearch: TSearchRec;
begin
APath:=cesta_vymaz.Text;
FindFirst(APath+'\*.*', faAnyFile, MySearch);
Vypis.Lines.Add(MySearch.Name);
DeleteFile(APath+'\'+MySearch.Name);
while FindNext(MySearch)=0 do
begin
Vypis.Lines.Add(MySearch.Name);
DeleteFile(APath+'\'+MySearch.Name);
end;
FindClose(MySearch);
end;
Jsme rád za každou radu "nejsem programátor"
To Sniper : Děkuji všem, mohu zase dále pokračovat :)
Už to mám...
Děkuji mnohokrát.
Jde to ještě nějak udělat se složkou "naposledy otevřené soubory" ???
Ještě jednou dík.
Ahoj,
řeším problém=
na formuláři mám tlačítko, po kterém potřebuji (po kliknutí), aby otevřelo zadanou cestu, jenže cesta je u každého uživatele jiná...
Např: otevření složky "C:\Users\Domo\Music" uživatel je ale na každém pc jiný...
Či nějak vypsat obsah složky na formulář, aby byl viditelný...
Nevím jak na to.
Děkuji předem za odpovědi :)
To Sniper : díky moc.
Dobrý den,
potřebuji udělat z labelu ukazatel času, který "běží" i se sekundami.
Povedlo se mi to pouze udělat jen, že pokud na label klinu, tak se ukaže cas, ale dale se již neaktualizuje (znovu se nezaktualizujr pokud se neklikne na label).
procedure Tplocha1.Label1Click(Sender: TObject);
begin
Label1.Caption:=DateTimeToStr(now);
end;
Dále by se mi hodilo, když zapisu do editu nejaky cas (co teprve bude nasledovat), aby se práve bezici cas odecital od toho zadaneho v editu. Ale to jen, kdyby opravdu nekdo byl ochotný.
Nevíte prosím někdo jak na to? Předem děkuji.
Dobrý den, mám docela velký problém s lazarusem s poslední verzí, nechce kompilovat. Hlásí toto:
Hint: Start of reading config file C:\lazarus\fpc\2.2.4\bin\i386-win32\fpc.cfg
Hint: End of reading config file C:\lazarus\fpc\2.2.4\bin\i386-win32\fpc.cfg
Free Pascal Compiler version 2.2.4 [2009/10/25] for i386
Copyright (c) 1993-2008 by Florian Klaempfl
Target OS: Win32 for i386
Compiling C:\Users\Davidsan\AppData\Local\Temp\project1.lpr
Compiling unit1.pas
unit1.pas(20,28) Hint: Parameter "Sender" not used
Compiling resource C:\Users\Davidsan\AppData\Local\Temp\project1.rc
windres: can't open file `project1.manifest': No such file or directory
project1.lpr(20,1) Error: Error while linking
Hint: Start of reading config file C:\lazarus\fpc\2.2.4\bin\i386-win32\fpc.cfg
Hint: End of reading config file C:\lazarus\fpc\2.2.4\bin\i386-win32\fpc.cfg
Free Pascal Compiler version 2.2.4 [2009/10/25] for i386
Copyright (c) 1993-2008 by Florian Klaempfl
Target OS: Win32 for i386
Compiling C:\Users\Davidsan\AppData\Local\Temp\project1.lpr
Compiling unit1.pas
unit1.pas(20,28) Hint: Parameter "Sender" not used
Compiling resource C:\Users\Davidsan\AppData\Local\Temp\project1.rc
c:\lazarus\fpc\2.2.4\bin\i386-win32\windres.exe: can't open file `project1.manifest': No such file or directory
project1.lpr(20,1) Error: Error while linking
project1.lpr(20,1) Fatal: There were 1 errors compiling module, stopping
Poraďte prosím, hodně me to mrzí, staré verze co mi jdou nemají už nekteré funkce, bez kterých se neobejdu...
Dobrý den, mám docela velký problém s lazarusem s poslední verzí, nechce kompilovat. Hlásí toto:
Hint: Start of reading config file C:\lazarus\fpc\2.2.4\bin\i386-win32\fpc.cfg
Hint: End of reading config file C:\lazarus\fpc\2.2.4\bin\i386-win32\fpc.cfg
Free Pascal Compiler version 2.2.4 [2009/10/25] for i386
Copyright (c) 1993-2008 by Florian Klaempfl
Target OS: Win32 for i386
Compiling C:\Users\Davidsan\AppData\Local\Temp\project1.lpr
Compiling unit1.pas
unit1.pas(20,28) Hint: Parameter "Sender" not used
Compiling resource C:\Users\Davidsan\AppData\Local\Temp\project1.rc
windres: can't open file `project1.manifest': No such file or directory
project1.lpr(20,1) Error: Error while linking
Hint: Start of reading config file C:\lazarus\fpc\2.2.4\bin\i386-win32\fpc.cfg
Hint: End of reading config file C:\lazarus\fpc\2.2.4\bin\i386-win32\fpc.cfg
Free Pascal Compiler version 2.2.4 [2009/10/25] for i386
Copyright (c) 1993-2008 by Florian Klaempfl
Target OS: Win32 for i386
Compiling C:\Users\Davidsan\AppData\Local\Temp\project1.lpr
Compiling unit1.pas
unit1.pas(20,28) Hint: Parameter "Sender" not used
Compiling resource C:\Users\Davidsan\AppData\Local\Temp\project1.rc
c:\lazarus\fpc\2.2.4\bin\i386-win32\windres.exe: can't open file `project1.manifest': No such file or directory
project1.lpr(20,1) Error: Error while linking
project1.lpr(20,1) Fatal: There were 1 errors compiling module, stopping
Poraďte prosím, hodně me to mrzí.
Dobrý den,
Včera jsem se rozhodl zkusit Lazaruse, ale pri kompilaci výsledného projektu při spuštění dojde k ohlášení chyby:
error while linking
Zkoušel jsem hledat, ale neuspěl jsem... Stáhl jsem i několik verzí s fps, ale nevím zda něco dělám špatně. Dělá to hned po instalaci, a ikdyž dám na formulář cokoliv. Prostě kompilátor v čoudu.....
Nevíte někdo prosím, co stím. Mám win 7 64bit.
Na to by blbej nepřišel, už jsem si poradil sám..
Dobrý den, nevíte prosím někdo udělat, když vložím tlačítko na formulář, aby po jeho kliknutí se mi otevřelo např. soubor v pdf či nějaký dokument, třeba .txt který bude uložen ve složce s projektem?
Děkuji