[KamiMAN]

Всем привет. Сегодня я впервые попробовал работать в Delphi, и получилось сделать только "Hello world!" в консоли Так вот, зачем я в delphi полез то... Мне нужно создать udp чат, но поскольку я ничего не понимаю в delphi то он у меня чет не получается... Кто может подсказать какую литературу читать именно на эту тему, потому что другие мне пока ненужны.
И еще вопросик: Реально ли создать такую вот прожку на делфи - Запускаешь эксешник, вводишь логин и пас (привязка к базам данных mssql или mysql), и все, пишешь в поле что нужно, а потом это высвечивается в самом чате... И еще парочка ньюансов, во первых хочется внедрить авы о_О тоесть в чате есть к примеру ~50 стандартных ав, и среди них пользователь выбирает любую, потом когда он пишет все видят его ник и аву, ну как на форуме =) А так же как то осуществить комнаты, но что бы они не занимали место в самом окне чата, тоесть к примеру войти в личную комнату так "open room 1", ну или что то в этом роде.
Заранее спасибо.

[iGeTT]

Вот про мускуль.
Советую для начала поглазеть примеры Delphi (Pascal) насчет работы с сетью и отправки-приема сообщений. Потом реализовать базовый функционал, а после уже "наращивать" функционал (те же аватары, смайлики, аккаунты, комнаты...)

[KamiMAN]

Ну, я в общем то так и хотел, просто надо было узнать, что точно читать. Спасибо

[KamiMAN]

Заранее извиняюсь за глупый вопрос, но есть небольшая проблемка, которую я в упор непонимаю... Что тут нетак? Embarcadero вовсю ругается на мой код. Пробую написать чат из этой статьи.

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Memo1: TMemo;
    Button1: TButton;
    Button2: TButton;
    SpinEdit1: TSpinEdit;
    ServerSocket1: TServerSocket;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
    procedure ServerSocket1ClientRead(Sender: TObject;
      Socket: TCustomWinSocket);
    procedure ServerSocket1ClientDisconnect(Sender: TObject;
      Socket: TCustomWinSocket);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  ServerSocket1.Port:=SpinEdit1.Value;
  ServerSocket1.Active:=True;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  ServerSocket1.Active:=False;
end;

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
var S: string;
begin
  if Key = Chr(13) then
  begin
    Key:=Chr(0);
    S:=Edit1.Text;
    Edit1.Clear;
    ServerSocket1.Socket.Connections[0].SendText(S);
    Memo1.Lines.Add('< '+S);
  end;
end;

procedure TForm1.ServerSocket1ClientDisconnect(Sender: TObject;
 Socket: TCustomWinSocket);
begin
  Memo1.Lines.Add('Клиент отсоединился');
end;

procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
 Socket: TCustomWinSocket);
var Received: string;
begin
  Received:=Socket.ReceiveText;
  Memo1.Lines.Add('> '+Received);
end;

end.

Извините, спойлер неполучается поставить...
Подскажите что в этом коде нетак? Embarcadero ругается чуть ли не в каждой строчке ошибка. Заранее спасибо...

P.S. Сохранил, все заработало, почему?

[KamiMAN]

Со всем разобрался, теперь новые вопросы.
1) Как сделать автологин к серверу? Сейчас для конекта к серву, нужно указать порт и IP надо сделать автологин просто нажав кнопку "Войти"
2) Как организовать ники? Сейчас есть только 2 вида сообщений, от серва и от клиента, они обозначаются ">" и "<", Нужно что бы было к примеру так "Вам написал KamiMAN" И "Вы написали". Ну или посто ник, а там уже понятно кто куда пишет..
3) Как дизайн проге написать? Чуть позже скринами с пояснениями дополню =)
Сейчас так.

Нужно убрать полоски вокруг поля где сообщения появляются

Должно получиться как выше о_О

[iGeTT]

1. IP статич.? Если да, то размести статично сервер и укажи ип и порт у компонента при старте клиента.
2. Хочешь ЛС или просто ники в чате? Как вариант - кинуть еще один Edit и отправлять сообщения вида:

Код:

S:=Edit*Ник*.Text + ': ' + Edit*Текст*.Text

Или же создать БД с аккаунтами, регистрацией, авторизацией и прочими прелестями.
3. А почему все черное? о_О А вообще для дизайна есть AlphaControls