Klient

[djmentos]

Prosiliście o rozpiskę klienta.

1. Klient piszemy w Delphi

Protokół: XMPP

Na początek proponuję napisać samą konsolę XML (XMPP jest oparte na XML).
Tak ot do testów. Kiedy zacznie już co nieco trybić zaczniemy dobudowywać do konsoli przyciski itd.

Skąd XMPP?
Myślałem nad bibliotekami, ale skoro to XML to po co biblioteki. Myślę, że po prostu Sockety.

Squad
*Dj Mentos (Delphi)
*Khalt (Delphi)
*adikx (Delphi)
*MaLy (Delphi)
*The (Delphi)

Wymiana źródeł:
FTP -> ftp.drivehq.com
Login -> HCPFTS
Hasło: p@s5w0rd
Port -> 21

 

[adikx]

Przydało by się podzielić i porozdawać obowiązki.

 

[djmentos]

Najsampierw jakiś zarys graficzny by się przydał. Taka rozpiska jak to ma wyglądać itd.

 

[Khalt]

Ja się zgłaszam do zadania: "obserwacja i nauka" xP.

 

[djmentos]

a więc troszke zaczęłem kodzić.
mam już bibliotekę do obsługi XMPP, testowałem i działa.

zrobiłem też małe menu i drobny zarys.
Oparłem to wszystko na ramkach i mam pierwszy problem. Ramki są tworzone dynamicznie przy starcie i przypisuję im nazwę ich klasy, ale nie wiem jak przełączać pomiędzy nimi. Tzn. wiem, ale chce napisać procedurę która to ułatwi

procedure TForm1.WyswietlRamke(nazwa: string);
var
  i: integer;
begin
  for i:=0 to Form1.ComponentCount - 1 do //lecimy po wszystkich komponentach
  if AnsiUpperCase(Form1.Components[i].Name) = AnsiUpperCase(nazwa) then // znalezlismy ramkę
  Form1.Components[i] - i teraaz jak zrobić, aby pokazać?
end;

Tworzenie ramek:

procedure TForm1.TworzRamki;
begin
  Polaczenie:= TFrame2.Create(Panel1);
  Polaczenie.Parent := Panel1;
  Polaczenie.Name:= 'Polaczenie';
  Polaczenie.Align := alClient;

//----------
może niech ktoś założy jakiś serwer. np. na republice. i da dane do FTP coby łatwo źródłem się dało wymieniać.

 

[Khalt]

Mówią, że dobre:
FTP -> ftp.drivehq.com
user -> HCPFTS
pass (spodobało mi się xp) -> p@s5w0rd
port (jeśli ktoś musi ^^) -> 21

Jest jeden folder, który jest chyba nieusuwalny ... ale nie powinno przeszkadzać.

 

[The]

To jak dzielimy prace?