SuperFórum.cz

Myslíte, že jsem hroznej když jsem doma s přítelkyní celý den doma abych po ní chtěl 2x sex denně.. ? Furt se mi vymlouvá, že její kamarádky to maj 3x týdně a jejich starý jsou spokojený... já teda ne.. nechci žádnou nymfu, ale víte co.. mám to prostě rád..

Čus lidi napíšete mi někdo kod, fotka v galerii bych chtěl aby se mi objevil v novem okno ktery by nesla predevalavt velikost kliknutim zavrit a nebyla videt adresa odkazy a tak.. ? díík.. Joo a hlavně aby to šlo ve všech prohlížečích .. nebo stačí odkaz.. Díík.. )

neznáte nějakej program kterej mi vytvoří flash s přechodem takovym ze se ztrati (přechod) fotka a objvevi se nova .... já nevim jak ten přechod popsat ... freeware a čistě bez rámečku... aby to vygenerovalo jenom swf + html

Mám problém pokakanej Autodesk Invertor 11, kterej potřebuju na práci mi blokuje jeho Web Serverem, kterej nemůžu najít 80 port... Když nainstaluju vertrigo tak to prostě nemůžu rozběhnout, furt je tam defaultně nastavenej AI 11.... Zkoušel jsem i IIS ale ta taky nepředělala nastavení na sebe... jak...

Kód: Vybrat vše

......

Var
F : TextFile;
.....

AssignFile(F, 'text.txt');
Rewrite(F);
WriteLn(F,Cas);
CloseFile(F);
.....



A už to frčíí

Hele tak užžž to mám... Připsal jsem za to CloseFile(F) a už to frčíí..

" 32: The process cannot access the file because it is being used by another process. "
opravdu ten soubor nemas v necem otevreny? nebo nevisi ti nekde ten tvuj program s tim, ze ma ten soubor jeste otevreny? nebo neotviras ho v tom programu dvakrat?

Joo tak počkej to zkouknu to je dost možný, ...

Jinak ted jsem zkusil vytvorit novej projekt dal jsem tam tohle na zacatek



procedure TForm1.FormCreate(Sender: TObject);
Var
F : TextFile;
Cas : String;
begin
Cas := 'cas';
AssignFile(F, 'text.txt');
Rewrite(F);
...

Joo hned vedle projektu a exe souboru. Píšu v Delphi 7, a teď jsem vyzkoušel i Delphi 2005 - v tom to rozchodit uplne stejnej problem.
I/O error 32

Soubor smazat jde, klidne vytvorit i novej.. Právo pro zápis taky je..

Cus mám problém, fakt nevím proč.. :(


......

Var
F : TextFile;
.....

AssignFile(F, 'text.txt');
Rewrite(F);
WriteLn(F,Cas);

.....

- Zasekne se na ReWrite
Po zkompilování se oběví chybová hl...

No tak nevim proc ale nefunguje to..

No to jsem zvedav.. fakt v tom nejsem moc zbehlej..

Jinak uses GraphicEx uz by bylo a ted jak k tomu mam pristoupit..

No jako je komponenta treba label,button,tak aby tam bud bylo ImageGif, nebo normalni obrazek jako IMAGE jak tam je ale aby tam byl i GIF...