Anonymní profil Mar.ko – Programujte.com

Děkuji moooc, hold lama no.

Jen mi nejde do hlavy proč tam je v te funkci buildrealname    to   result := '.\data' + value;

To je cesta k adresaři data v orginal zdrojaku, ktery se zobrazoval při nalogovaní na FTP ne

#9 zdenda

A ja se s tym trapil cele dva měsice.

Zkoušel v každe volne chvilce.

Tady je cely ftpthrd.pas    http://leteckaposta.cz/732167592
Tady je to cely                http://leteckaposta.cz/102961696

Hm.Tak jsem si myslel že tu jsou větši machři a že určitě někdo pomuže  

No škoda.

XE2

Mužu dalši.

Tam, kde se piše kod je po prave straně šeda čara.

Tam se daji pozavirat procedury,funkce atd.

Da se někde nastavit aby si to delphi pamatovalo a po znovu spuštění projektu to bylo tak jak jsem to pozaviral.

Pěkny den.

Měl bych takovy uplně lamovsky dotaz při mem prvním pokusu.

Když přida na form komponenty

ComboBox1,ComboBox2 atd nebo třeba ListBox1,ListBox1

Tak při spuštění je text v ComboBox1 označen modře.

Jak se toho zbavím.

Hm

Když je v mainmenu  hint, tak proč na to tak složitě 

Nějak to maji kluci co dělaj to delphi nedodělane 

Tak ještě zjistit jak spustit vlakno a mam to.  

#2 liborb

Děkují za radu ale bud jste nepochopil dotaz, nebo jste jej nedočet dokonce

Použit klasicky ping přes synapse je jednoduche.

Dotaz zněl

"Ve staženém  balíku je PingThread.pas
Jak s mého programu spustit toto vlákno a získat výsledek pingu"

Tady je ten PingThread.pas

unit PingThread;

interface

uses Classes, PingSend, IPUtils;

type
     PPingResult = ^TPingResult;
     TPingResult = Record
                     IPAdress:String;
                     Exists:Boolean;
                   end;


type
  TPingThread = class(TThread)
  private
    { Private declarations }
  protected
    procedure Execute; override;
  public
    PingResult:TPingResult;
    Ready:Boolean;
    constructor Create(Ping:TPingResult);
  end;

implementation

{ TPingThread }

constructor TPingThread.Create(Ping:TPingResult);
begin
  PingResult.IPAdress := Ping.IPAdress;
  inherited Create(False);
end;

procedure TPingThread.Execute;
var Ping:TPingSend;
begin
  Ready := false;
  Ping  := TPingSend.Create;
  Ping.Timeout := 2000;
  PingResult.Exists := Ping.Ping(PingResult.IPAdress);
  Ping.Free;
  Ready := true;
end;

end.

Zdravím.
Poraďte začátečníkovi.

Už 2 den se marně snažím zprovoznit ping přes synapse.
Ve staženém  balíku je PingThread.pas
Jak s mého programu spustit toto vlákno a získat výsledek pingu

Zdravím.

Udělal jsem IE prohlížeč podle tohoto
http://programujte.com/…ec-v-delphi/

Ve vrchní časti Form mam ikony.

Každá ikona znázorňuje 1 string.

Rad bych docílil tohoto.

Najedu v mem prohlížeči na nějakou přihlašovací stránku.

Místo toho abych třeba vypisoval mé jméno do kolonky NAME, tak bych chytl ikonu s názvem NAME a přetáhl do polička.

Poradíte jak nato.

Mam tabulku (5 sloubcu)
scrollbaru jen  jen vertikalně.
Vše je OK.
Když však kliknu na 5 sloupec uděla to toto.
http://i55.tinypic.com/8vooeh.jpg
Prostě cela tabulka se posune vpavo o 1 sloupec i když tam už žadny neni.

Našel jsem na netu toto.

"Je to typické autoposunutí gridu. Je třeba odchytávat zprávu (myslím, že je to WM_VSCROLL) a zrušit její následky."

A neda se nějak donutit html, aby se spustilo v IE i když je v PC nastaven jako vychozi prohližeč firefox.

Funguje.Dik. :smile1:

liborb napsal:
Například příkazem ver si můžeš nechat vypsat verzi Windows. A když ji vhodně zpracuješ ...