nasze IP

0

yO! wszystkim! [browar]

Jak wyciągnąć z naszego kompa adres IP? Chodzi mi o to żeeby np. Etykieta "Label1" pokazywała nasze IP i jak to zrobić w WinNT i 2000.

Wszystkim dzięki za odp.

I jeszcze jedno, ktoś wie jaki kod ma klawisz "Backspace" ? #...

0

U mnie backspace ma 3592.Wiesz chr(3592) daje u mnie ten sam efekt. :)

0

Kicha, ja mam coś takiego:
<font color="blue">
procedure TForm1.TipKeyPress(Sender: TObject; var Key: Char);
begin
if not ((key = #48) or (key = #49) or (key = #50) or (key = #51) or
(key = #52) or (key = #53) or (key = #54) or (key = #55) or
(key = #56) or (key = #57) OR (key = #46)) then
key := #0;
end;
</span>
Ta procedurak służy do tego że w RichEdit można wpisac same cyfry i kropki, ale nie można ich kasować Backspac'em, tylko trzeba zaznaczać i wciskać Delete :-(

0

moim zdaniem backspace ma #8
tak wychodzi z tego:
label1.Caption:= inttostr(key);

0

Dzięki JACHU, że też sam na to nie wpadłem ;-) , a ktoś wie czy jest jakaś klasa, zmienna albo struktura czy co tam jeszcze jest które przechowywuje dźwięki, czy muzyczki w formacie .wav???

0

co do IP to jest to w FAQ..
poza tym, jezeli posiadasz komponenty INDY lub FASTNET to tam sprowadza sie to do jednego kodu..

ikonka w indy ze znaczkiem zapytania....
[code]Label1.Caption:=KomponnetIndy.LocalIp;[/code]

i już

co do kodu backspace..
ja zrobilem to inaczej..

[code]procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if not (Key in ['0'..'9', '.']) then Key := #0;
end;[/code]

0

Co do przechowywania wavów to możesz przecież w wavelist z DelphiX :)

1 użytkowników online, w tym zalogowanych: 0, gości: 1