Anonymní profil Martin Fiala – Programujte.com

Ahoj,
generuji HTML kód do Text "arény" a mám problém s uvozovky ("). Informace se zadávají do předchozího formuláře a odesílají se pomocí GET. No ale uvozovky dělají dost velký problém. Tady je kód:

<?php echo "<a href="". $_GET['odkaz'] ."" rel=""."lightbox"."" title="" . $_GET['nazev'] ."" >image #1</a>";?>

Soubor s ukázkou....

Ještě lépe. Takto jsem to řešil v jedné aplikaci, která byla přes celou obrazovku a nesla na sobě obrázek (něco jako spořič s EXE příponou :)).

procedure TForm1.FormCreate(Sender: TObject);

var 

  HTaskbar : HWND; 

  OldVal : LongInt; 

begin 

try

  HTaskBar:=FindWindow('Shell_TrayWnd',nil);

  SystemParametersInfo (97, Word (True), @OldVal, 0) ;

  EnableWindow(HTaskBar,False);

  ShowWindow(HTaskbar,SW_HIDE);

finally

  With Form1 do begin 

  BorderStyle :=bsNone;

  FormStyle  :=fsNormal;

  Left        :=0;

  Top        :=0;

  Height      :=Screen.Height;

  Width      :=Screen.Width;

  end;

end

end;





procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);

var 

  HTaskbar : HWND; 

  OldVal : LongInt; 

begin

    ShowWindow(FindWindow('Shell_TrayWnd', nil), SW_SHOW);

    HTaskBar:=FindWindow('Shell_TrayWnd',nil);

SystemParametersInfo (97, Word (False), @OldVal, 0);

EnableWindow(HTaskBar,True);

ShowWindow(HTaskbar,SW_SHOW);

SystemParametersInfo(SPI_SETMOUSEBUTTONSWAP, 0, nil, 0)



end;

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, jpeg, ExtCtrls, WinSkinData, ImgList, ComCtrls, ToolWin;

1) Jak schovat TaskBar

begin

ShowWindow(FindWindow('Shell_TrayWnd', nil), SW_HIDE); //schová TaskBar

end;

begin

ShowWindow(FindWindow('Shell_TrayWnd', nil), SW_SHOW); //zobrazí Taskbar

end;

Ahoj,
další dotaz. Jak skrýt všechna tlačítka Toolbutton, které obsahuje obrázek např. ID 5. Všechna tlačítka, které mají obrázek ID 5 z ImagesList1, aby se skryla/zobrazila při kliknutí na CheckBox1. Tlačítka jsou rozmístěna na TollBar 1-5.

Díky moc

AHoj mám takový kód:

Uses URLMon, ShellApi;

.



function DownloadFile(Zdroj, Cil: string): Boolean;

begin

try

  Result := UrlDownloadToFile(nil, PChar(Zdroj), PChar(Cil), 0, nil) = 0;

except

  Result := False;

end;

end;



procedure TForm1.Button1Click(Sender: TObject);

const

ZdrojovySoubor = '/soubor.exe';

CilovySoubor  = 'c:\soubor.exe';

begin

  if DownloadFile (ZdrojovySoubor, CilovySoubor) then ShowMessage('Stažení souboru bylo

úspěšné')

  else ShowMessage ('Chyba při stahování souboru ')

end;

Ahoj,
jak mám do ValueListEditor přidat sloupce. Když dám TitleCaptions, tak se zobrazí pouze dva a já jich potřebuji min. 7. Nebo poraďte jinou komponentu na nějaké tabulky, kam se budou načítat data. Nejlepší však na jednoduchou databázi bude asi ValueListEditor.

Díky moc

To KIIV : Dík za radu! Fakt si mi pomohl! Jinak už to mám:

var

  I: Integer;

begin

for i := 0 to form4.memo1.lines.count - 1 do

  form1.memo1.lines.add('<ul>' + form4.memo1.lines[i] + '</ul>');

Neví te kde je chyba?

form1.memo1.Lines.Add('<ul>' + form4.Memo1.Lines + '</ul>');

Jeden malý problém. Neumím MySQL a php na 4-. Ale to je jedno. A to vyhledávání jak??? Nebo aspoň aby se při každém odeslání přičte +1 k portu (nesmý být stejný!)

To z_moravec : Ty uložené tabulky se budou stahovat do počítače, kde je bude číst naprogramovaný program v Delphi. Nebo existuje něco lepšího? Jinak ukládání zvládnu, ale nevím si rady s vyhledáváním v databázi

Potřebuji vytvořit formulář v PHP, který by vyhledával v několikátí databázích a popřípadě přidal nové položky. Databáze musí být ve formátu *.txt a musí být uložena na serveru nikoliv v databázi MySQL.

Formulář již mám připraven (víz příloha) akorát řeknu pár dodatků.

ComboBox bude určovat 3 databáze, ve které se bude vyhledávat údaje:
1. Sériové jméno – pokud nebude existovat tak vyhodí chybovou hlášku
2. Sériové heslo - pokud nebude existovat tak vyhodí chybovou hlášku
3. Port – vygeneruje port a zapíše do databáze, ale nesmí se opakovat. Sem se bude též zapisovat jméno, příjmení, IP, čas, sériové jméno a heslo.

Takže pokud bude vybrána položka Zeměpis Evropy bude adresa databáze taková:
1. http://www.mfsoftware.eu/databaze/zemepis_evropy/jemo.txt
2. http://www.mfsoftware.eu/databaze/zemepis_evropy/heslo.txt
3. http://www.mfsoftware.eu/databaze/zemepis_evropy/port.txt
Zeměpis Asie:
1. http://www.mfsoftware.eu/databaze/zemepis_asie/jemo.txt
2. http://www.mfsoftware.eu/databaze/zemepis_asie/heslo.txt
3. http://www.mfsoftware.eu/databaze/zemepis_asie/port.txt
Ještě je jedna podmínka. Databáze portu musí vypadat následovně:

Port | jméno | příjmení | IP | datum a čas | sériové jméno | sériové heslo

Díky všem kteří chtějí přispět při programování encyklopedie přizpůsobené pro nevidomé. Všem kteří pomůžou nabízím umístění jména a popř. adresu Vaši stránky do modulu „Autoři“.
Ještě jedno upozornění: nejsem programátor PHP :-( . Díky moc!!!
Martin Fiala

Ahoj,
potřebuji poradit. Mám tři komponenty Edit. V první komponentě je název formuláře, kde se nachází komponenta Images. V Druhém editě je název Images. A ve třetí nastavují např. width... Potřebu ji to nějak spojit ty dva edity, aby to dalo jednu adresu komponenty.
Snažím se totiž naprogramovat Object inspector a u tohoto jsem se zastavil. Funguje to tak, že se v frames klikne například na komponentu Images. Do prvních komponenty se vypíše název formuláře (tedy Frames11) a do druhého jméno komponenty (images1). V komponentě Images mám nastaveno "Klikni a táhni". Takže se hodnota ve třetím Editě stále mění. Ale když to změním ve třetím Editě např. to Width tak se to nezmění. Nějak to takhle potřebuji napojit (nebo máte někdo jiný nápad?). Nesmíme ale zapomenout, že těch komponent tam bude více.

OK, začal jsem to programovat a už něco mám :). Nový problém, když kliknu třeba na obrázek tak v mém objectu inspector se to zobrazí OK. Ale já potřebuju když změním v mém objectu inspector nějakou hodnotu aby se to na té vypsané komponentě vyplnilo. Jednoduše řečen: z komponenty do objectu to jde, ale naopak ne :(

To z_moravec : A dalo by se nějak udělat, aby při druhém kliknutí se daný řádek aktualizoval?

Ahoj,
jak mám udělat, aby se po kliknutí provedlo toto

nastroje.ValueListEditor1.Strings.add ('Výška='+frame51.Memo1.Width);

Ahoj,
mám takový velmi jednoduchý dotaz. Je k dispozici nějaká komponenta, která zajistí, aby se v aplikaci zobrazil Object inspektor? Tedy, když kliknu na obrázek v spuštěné aplikaci aby se dal třeba změnit výška, šířka...

Díky moc

Ahoj,
nevíte jak nainstalovat komponenty do Delphi 2009??? V Delphi 7 to šlo pěkně, ale v 2009 jsem to nikde nenašel (klasické komponenty popř. DPK, DPR

Ahoj,
dostal se mi z Živě.cz - Tipy a triky v Delphi jak naprogramovat klienta a server. V příkladu byla přiložena ukázka (viz v příloze). Vše funguje jak má pod XP. Mám dva dotazy:
-Jak udělat, aby správně běžel i pod Windows Vista / Seven
-A jak udělat aby se daly připojit klienti z jiného počítače na server, který je umístěn na jiném počítači než klient. Oba tyto počítače jsou spojeny pouze internetem. Jak to udělat???

Prosím, pište ja pro debila :) Používám Delphi 7 Enterprise

Ahoj,
chci si vytvořit vícejazyčnou aplikaci v Delphi 7 pomocí Resource DLL Wizard. Vše jsem podle průvodce vytvořil, ale nevím jak se zdrojovýk kódem.

Potřeboval bych to ve dvou variací a to po kliknutí na tlačítko (Česky, Slovensky) a pomocí RadioButton (opět Česky a Slovensky).

Mockrát díky za pomoc!