Noova.pl blog » delphi

Ułatwianie sobie życia jest trudne i niepotrzebne.

matergames — Mon, 28 Jun 2010 23:26:42 +0000

A czasem wręcz szkodzi.

O co chodzi? A o to, że dla lepsiejszej organizacji (^^) pracy potworzyłem sobie parę dysków wirtualnych za pomocą komendy subst. (instrukcje użycia otrzymać można po wpisaniu w cmd „subst /?„).

Pomyślałem, że szybciej i fajniej będzie robić to za pomocą jakiegoś GUI a nie z poziomu cmd. Odpaliłem więc delphi, zakodziłem co trzeba, bez zbędnych bajerów i wyszło na to (bo ja nie myślę, zanim zrobię), że szybciej jest jednak wspisać komendę w cmd, o ile oczywiście ścieżka do folderu to nie jakieś poskręcane i dziwne ciągi znaków.

Tak czy inaczej, wrzucę to tutaj, niech sobie leży.
Pobierz plik. (206 kb), .rar

Co z „[Delphi] Piszemy prosty chat!” ?

matergames — Fri, 09 Apr 2010 21:52:05 +0000

Miało być, a nie ma bo mimo, że druga część jest prawie gotowa to nie mam kiedy jej dokończyć.

Poza tym przerzuciłem się teraz na Delphi 2009 i ni za cholerę nie pamiętam, które kontrolki są nowe, a które już były.

Zrobię tak: napiszę całą aplikację w delphi 2009 i wrzucę ją wraz ze źródłami, a potem postaram się to jakoś rozpisać na części.

Niestety nie wiem jak z kompatybilnością projektów, ale z tego co widzę powinno działać. Powinno.

Poza tym Delphi 7 ssie, bo jest strasznie niestabilne i ma porąbany układ okien.

Cheers

[Delphi] Piszemy prosty chat! Część 1 – wstępniak

matergames — Thu, 11 Feb 2010 19:26:04 +0000

Chwilę już nic nie pisałem, postanowiłem coś tutaj umieścić
Swego czasu stworzyliśmy dla muhacka kanał IRC, ale niestety nie za wiele osób z niego korzystało, zwykle świeciło tam pustkami.
Dlatego też jakiś już czas temu postanowiłem napisać w delphi specjalnie do chatu stworzoną aplikację – niestety pomysł też nie wypalił.

Dzisiaj zacznę pisać jak taką aplikację stworzyć – krok po kroku.

Zanim zaczniesz zapoznaj się z użytym tu językiem programowania – delphi.
Linki do stron z kursami:
Pascal:
http://www.pascal.eu.org/
http://turbopascal.skryptoteka.pl/index-noflash.html
Delphi:
http://4programmers.net/Delphi/Kompendium
http://swiatinformatyki.ovh.org/delphi.php

Do tego będą nam potrzebne ClientSocket i ServerSocket – do ściągnięcia tutaj: http://members.multimania.co.uk/marekblck/socks.zip

Zacznijmy!

Odpalamy Delphi (ja korzystam z wersji 7), powinna pojawić się nam już gotowa forma
Wrzucamy na nią:
Memo (nazwa msgs) – do wyświetlania wiadomości
ClientSocket – nasze gniazdo do łączenia się z serwerem
XpManifest – dla nadania „xpkowego” wyglądu
ListView (nazwa ppl) – dla wyświetlenia innych użytkowników
2xEdit (nazwy odpowiednio: ip oraz msg) – do wpisania IP serwera oraz wiadomości
2xbutton (nazwy odpowiednio: ipbtn oraz msgbtn) – połączenie z serwerem / wysłanie wiadomości

Ustawiamy sobie komponenty według uznania, u mnie wygląda to teraz tak:

Zmieniamy w ListViev – viewstyle na vsReport, klikamy na [...] przy columns i dodajemy kolumny: # oraz nick

Przechodzimy do ClientSocket i ustawiamy: name na klient i port na port na którym ma działać chat (ja ustawiłem na 666).

Zmieniamy w msgs ReadOnly na true.

Dwuklikiem na ipbtn tworzymy procedurę ipbtnClick o zawartości:

klient.address:=ip.text; //ustawiamy IP w socketcie
klient.active:=true; //aktywujemy go
ipbtn.Enabled:=false; //dezaktywujemy przycisk

Oraz tworzymy procedurę klientError o treści:

ErrorCode:=0; //przecież sami zajmiemy się błędem :)
msgs.Lines.Add('Błąd - nie ma połączenia z serwerem ('+ip.text+':'+inttostr(klient.port)+')'); //dodajemy do memo ładną informację

To był tylko wstępniak, tak naprawdę jeszcze nie zaczęliśmy tego pisać, ale to był tylko przedsmak, kolejna, już pełnoprawna część niedługo