[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

[KamiMAN]

Черное надо, на будущее планируется ввести авы, и привязку аков с помощью mysql о_О Айпи статичный, но я нупь, и незнаю как автологин сделать, что бы просто жамк войти, и он сразу готовый айпи и порт у себя авторизует.

[iGeTT]

В параметрах UDP компонента пропиши ип и порт. И убери считывание их с Edit'ов

[KamiMAN]

Вот свой залил. Сори что дамп

Люди вопрос появился, мой чат можно скачать чуть выше, и глянуть, что это чудо работает только в 2 стороны, сервер-клиент, если подключик несколько клиентов, сервер с каждым сможет общаться, все видят сообщения сервера, а сообщения клиентов видит только серв, клиенты друг друга не видят. Дык вот подскажите какой чат писать, что бы в чате могли сидеть человек 20, как в 1ой комнате, на чем писать(всмысле сокеты, udp, tcp) и т.д
Желательно еще ссылочку на гайд, ибо я всего 2 дня в делфи работал
Заранее спасибо.

[iGeTT]

Скинь весь проект полностью, с .pas.

Код:

Unit1 in '..\..\..\Documents\RAD Studio\Projects\Сервер №2\Unit1.pas'

[KamiMAN]

Cсылка на мой чат, мне подсказали что можно этот чат переделать не внося изменений в структуру(может я неправильно говорю), а в свойствах TServerSocket`a найти свойство, в его обработчик вписать такую штуку, что бы когда клиент шлет сообщение на сервер, его видят другие клиенты о_О как то так... У кого есть время, помогите опжалуйста в скайпе (kamimanmailru) или аське (564306030)

[KamiMAN]

Всем привет, решил не мучаться с UDP и написал(переписал) чат на сокетах (знакомый исходники дал хорошие). Так вот...
Решил все вопросы, остался 1 достаточно важный, есть к примеру 5 картинок, которые нужно использовать как авы, есть код отправки ника сервер-клиент

Socket.SendText('#UC:'+Form2.Edit4. Text);

Если не ошибаюсь, так вот, мне посоветовали авы с помощью RadioGroup сделать... Ктонибудь подскажите более подробно? Есть Form2 который пока что содержит в себе поле для порта, IP, ника, и 3 кнопки сохранение, вход, выход... Туда же я хочу запихать выбор авы, в результате всего этого ава должна появляться над ником в сообщении... Еще все это чудо должно использовать Canvas. (Картинки будут лежать в папке с чатом)
Сейчас так:
[NikName]: Текст
а надо:
[TImage]
[NikName]: Текст

И еще вопросик. Сейчас отправка сообещния из Memo происходит при нажатии ентера, как сделать при нажатии ctrl+enter?

procedure TForm1.Memo2KeyPress(Sender: TObject; var Key: Char);
begin
if Key = #13 then begin
Key := #0;
Button4.Click;
end;
end;

Как то так, заранее спасибо...

[iGeTT]

Можно например поместить картини в директорию с программой и отправлять только номер, например отдельным сообщением.
А насчет ctrl+enter - можно при считывании

Код:

if Key = #17 then proverka:=true;
if proverka = true and Key = #13 then Button4.Click;