Problem z kompilacją...jakiś błąd ?!

[pisarz 0]

Jestem w trakcie tworzenia przeglądarki internetowej.....

 

oto jej kod:

 

unit WebMainU;

 

interface

 

uses

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

Dialogs, StdCtrls, ComCtrls, ExtCtrls, OleCtrls, SHDocVw;

 

type

TWebMain = class(TForm)

Panel1: TPanel;

URLComboBox: TComboBoxEx;

StatusBar1: TStatusBar;

WebBrowser1: TWebBrowser;

procedure URLComboBoxKeyPress(Sender: TObject; var Key: Char);

procedure URLComboBoxDblClick(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

 

var

WebMain: TWebMain;

 

implementation

 

{$R *.dfm}

 

procedure TWebMain.URLComboBoxKeyPress(Sender: TObject; var Key: Char);

begin

if Key = Char(VK_RETURN) then

begin

Key := #0

if URLComboBox.Text<>'' then

begin

WebBrowser1.Navigate(URLComboBox.Text);

{UpadteURL}

end;

 

procedure TWebMain.URLComboBoxDblClick(Sender: TObject);

var

C: Char;

begin

C:= Char(VK_RETURN);

URLComboBoxKeyPress(Sender.Create C);

 

end;

 

end.

 

 

 

 

problem mam w tym że przy kompilacji (Delphi 7 Enterprice) oto lista błedów jakie występują podczas kompilacji:

 

 

z góry dzięki za pomoc

 

pozdr.

 

pisarz

[januzi 24]

key = costam ; <- srednik !!!!!!!!

w tej procce przy okazji brakuje end ;

 

wiesz wogole o co chodzi w programowaniu ?

[pisarz 0]

key = costam ; <- srednik !!!!!!!!

w tej procce przy okazji brakuje end ;

 

wiesz wogole o co chodzi w programowaniu ?

 

programuje od ponad roku.....

 

no wstawiłem srednik, end dodałem i dalej sie nie kompiluje...

 

to co to moze być....jak by ktoś mógł to niech napisze jak powinna dokłądnie wyglądać ta procedura...

 

pozdr.

 

pisarz

[januzi 24]

a jakie bledy pokazuje ?

[pisarz 0]

a jakie bledy pokazuje ?

 

begin

WebBrowser1.Navigate(URLComboBox.Text);

{UpadteURL}

end;

end;

 

procedure TWebMain.URLComboBoxDblClick(Sender: TObject);

var

C: Char;

begin

C:= Char(VK_RETURN);

URLComboBoxKeyPress(Sender.Create C);

end;

 

end.

 

 

wiec co jest źle ??

[januzi 24]

ehh ehh ehh ... pierwsza procka, brakuje jeszcze jednego end; tam gdzie masz jedna instrukcje to nie potrzebujesz zakladac na nia begin end

a druga sender.create C => sender.create©

 

a tak apropo, skoro piszesz juz od roku to zastanawia mnie to, ze gubisz podstawowe instrukcje w programie. a tak poza tym ctrl+spacja Twoim przyjacielem, czasami daje calkiem poprawne podpowiedzi.

 

[Edytowane: 13/3/2004 przez januzi]

[pisarz 0]

no jeszcze jeden bład...ale tamte juz sa chyba dobrze:

 

 

a co do tego programu... to jego stworzenie jest opisane w książce Kenta Reisdorpha i tak tam ta procedura została napisana....

[januzi 24]

no to zostaw samo sender.create

 

albo tlumaczenie kiepskie albo autor dupa.

[pisarz 0]

procedure TWebMain.URLComboBoxDblClick(Sender: TObject);

var

C: Char;

begin

C:= Char(VK_RETURN);

URLComboBoxKeyPress (sender.create);

end;

 

end.

 

dałem tak i dalej bład w kompilacji

[januzi 24]

a samo C ?

wogole powinien byc komunikat w stylu "inproper type" lub cos takiego, jak wpiszesz to combo i ctrl+spacja to pokaze Ci jaki ma byc parametr.

[pisarz 0]

[januzi 24]

( sender.create, c ) lub ( sender, c )

[pisarz 0]

( sender.create, c ) lub ( sender, c )

 

JJJJJJEEEEEEAAAAAAAAAAA........ dziaaałaaaaaaa......

 

tylko jeszcze jeden problem

 

za każdym razem jak wpisze jakaś literke to dzieje sie tak jakby strona chciała sie już łądować... słychać takie kliknięcie.... i przez to wyskakuje komunikat że nie można wyświetlić strony tylko 2 razy mi sie udało wp.pl załadować....

[januzi 24]

no po po kazdym wpisaniu literki nastepuje wywolanie "navigate", ma byc tak, ze if klawisz <> enter then do pola wpisz zawartosc klawisza i wyzeruj go ELSE navigate do strony podanej w polu tekstowym

[pisarz 0]

no po po kazdym wpisaniu literki nastepuje wywolanie "navigate", ma byc tak, ze if klawisz <> enter then do pola wpisz zawartosc klawisza i wyzeruj go ELSE navigate do strony podanej w polu tekstowym

 

OK dobra....działa....

 

teraz kolejny problem

 

dodaje zeby wyświetlał sie postęp łądowania strony w kontrolce WebBrowser zdarzenie OnPressChange:

 

procedure TWebMain.WebBrowser1ProgressChange(Sender: TObject; Progress,

ProgressMax: Integer);

var

Percent: integer;

begin

if (ProgressMax <= 0) or (Progress < 0) then

begin

// po zakończeniu pobierania niniejsza procedura wywolywana

// jest z parametrem ProgressMax = -1

StatusBar.SimpleText := 'Gotowe'

end

else

begin

Percent := (Progress * 100) div ProgressMax;

 

StatusBar.SimpleText := Format(

'Pobieranie strony: %d%% z %d' , [Percent, ProgressMax div 1024]);

end;

 

end.

 

i taki bład:

 

]http://www.members.lycos.co.uk/pisarz2/blad3.JPG' alt='blad3.JPG'>

[januzi 24]

dobra, nudzi mi sie to powiem Ci co trzeba poprawic. Gdyby nie to, to bym Ci napisal cos w rodzaju "z takim programowaniem, to watpie zeby program byl dobry", no ale masz szczescie ;P

 

brakuje jak zwykle end;

[gkol 0]

daj pomiedzy: end; i end. jeszcze jedno end;

[pisarz 0]

dobra

to już dziła....dodałem przyciski nawigacji....działają

 

jeszcze jedna sprawa....

 

 

jak wpisze dowolny adres strony to musze w tym okienku gdzie sie adres wpisuje dwa razy kliknąć myszką... inaczej wyskoczy komunikat że nie może wyświetlić strony

 

 

da sie coś z tym zrobić

 

btw. na enter też nie reaguje.......tylko klikniecie pdwójne myszki

[letus 0]

pisarz bez urazy ale to ty piszesz ten program czy kolega januzi?

[pisarz 0]

pisarz bez urazy ale to ty piszesz ten program czy kolega januzi?

 

ja pisze..... januzi mi pomaga w rzeczach w których sam niestety rady sobie nie dam.... po to jest forum żeby znaleść pomoc

[januzi 24]

no wlasnie, tak mi jakos chodzilo po glowie ze sie udzielam za friko. Moze powinienem udzielac porad za oplata ? 1 zl za kazda uwage dot. delphi

 

takie bledy robi osoba ktora ma za soba z 1 miesiac pisania w delphi, tak wiec ciutke trudno mi zrozumiec, zeby ktos kto pisze od roku zapominal o end; i innych podstawowych regulach

[pisarz 0]

no wlasnie, tak mi jakos chodzilo po glowie ze sie udzielam za friko. Moze powinienem udzielac porad za oplata ? 1 zl za kazda uwage dot. delphi

 

takie bledy robi osoba ktora ma za soba z 1 miesiac pisania w delphi, tak wiec ciutke trudno mi zrozumiec, zeby ktos kto pisze od roku zapominal o end; i innych podstawowych regulach

 

no jak chcesz moge Ci zapłacić....

 

ale jeszcze odpowiedz na to :

 

jak wpisze dowolny adres strony to musze w tym okienku gdzie sie adres wpisuje dwa razy kliknąć myszką... inaczej wyskoczy komunikat że nie może wyświetlić strony

 

 

da sie coś z tym zrobić

 

btw. na enter też nie reaguje.......tylko klikniecie pdwójne myszki

[letus 0]

  ja pisze..... januzi mi pomaga w rzeczach w których sam niestety rady sobie nie dam.... po to jest forum żeby znaleść pomoc   

jeszcze raz bez urazy ale od tego są manuale i dokumentacja żeby nie zaśmiecać forum pozatym jak zapominasz o średnikach i słowach kończących instrukcje to albo jest roztargniony i z błędami przepisujesz źródła z książki albo nie masz bladego pojecia o programowaniu.

[januzi 24]

bo masz takie operacje

zapoznaj sie z : WebBrowser1.Navigate(URLComboBox.Text); i pomysl jak je uzyc przy nacisnieciu entera (na przyklad key = vk_return and urlcombobox.text <> '' then ...

[pisarz 0]

  ja pisze..... januzi mi pomaga w rzeczach w których sam niestety rady sobie nie dam.... po to jest forum żeby znaleść pomoc   

jeszcze raz bez urazy ale od tego są manuale i dokumentacja żeby nie zaśmiecać forum pozatym jak zapominasz o średnikach i słowach kończących instrukcje to albo jest roztargniony i z błędami przepisujesz źródła z książki albo nie masz bladego pojecia o programowaniu.

 

no dobra spoko .... tylko ten programista co pisał tą książke jest bardzo doświadczony...Pracuje jako programista w firmie TurboPower Software....i myślałem ze to co tu napisał to bedzie bez błednie.....