обновление в блоге - Создание многопользовательского чата

[sanek-36rus]

Сообщение от KREGI

зачем тогда Вам исходник?

По исходнику смогу сообразить..... дайте пожайлуста исходник если нетрудно!

[Beermonza]

sanek-36rus, есть же исходник последней версии, скачивайте, разбирайтесь, а как поймете как работает, так и удалить лишний код не составит никакого труда. Сейчас же, вы просто клянчите готовое, ...так некрасиво поступать, как минимум. Я дал общий код, а дальше модернизация и добавление уже становятся личным интеллектуальным трудом, и автор этого труда хочет показывает его, хочет не показывает.

[KREGI]

sanek-36rus не могу дать Вам свой исходник, в нем уже есть то что публиковать не хочется.

[KREGI]

Beermonza, заработал, я перепутал ip ,спасибо за помощь

[sanek-36rus]

Сообщение от Beermonza

sanek-36rus, есть же исходник последней версии, скачивайте, разбирайтесь, а как поймете как работает, так и удалить лишний код не составит никакого труда. Сейчас же, вы просто клянчите готовое, ...так некрасиво поступать, как минимум. Я дал общий код, а дальше модернизация и добавление уже становятся личным интеллектуальным трудом, и автор этого труда хочет показывает его, хочет не показывает.

Я не могу сделать,чтобы чат открылся на весь экран.То что вы писали до этого я пробовал,у меня не получилось.А с кодами я сам разобрался.

[KREGI]

sanek-36rus сделайте ресайз компонентов,

[Beermonza]

sanek-36rus, каждому вопросу свое место, ...в этой теме никто не будет вас обучать, как работать с компонентом, который к теме сокетов не относится никак, ...ваш вопрос задавайте в разделе "Общие вопросы Delphi" по общей тематике "оформление, работа с окнами". Не от того, что мы вредные и не хотим, а от того, что вас новичков много, а у нас не так много времени, что учить каждого как поставить кнопку, убрать кнопочки управления окна и пр, ...кроме того это просто не соблюдение правил форума, иначе зачем столько делений на разделы и темы делается. Если разобрались с кодом, то замечательно.

С уважением.

[Sasuke-cun]

Подскажите как реализавать в таком чате статусы и для того чтобы удобнее было читать чат раскрасить строку в общем чате под его цвет???

[Beermonza]

Ребят, кто уже пользует компонент TRxRichEdit, объясните Sasuke-cun, как и чего с цветами заднего фона, я просто не пользовался компонентом никогда.

Sasuke-cun, статусы, в смысле "отошел", "занят", "не беспокоить", "готов поболтать" и пр.? ...если так, то вводите еще одну команду, в пакете код состояния.

[ManU]

procedure DivStr(var password:string;var text:string );
var i:integer;
begin
 i:=1;
 repeat
  inc(i);
 until text[i+1]=' ';
 password:=copy(text,1,i);
 delete(text,1,i+1);
end;


procedure GetCode(password:string;var buffer:string);
var i,k:integer;
    text:string;
begin
    k:=1;
for i:=1 to length(buffer) do
   begin
   Text:=text+chr((ord(buffer[i]) XOR ord(password[k])));
   inc(k);
    if k>length(password)
      then k:=1;
   end;
 buffer:=text;
end;


procedure TForm1.Timer1Timer(Sender: TObject);
var i:integer;
begin
if ServerSocket1.Socket.ActiveConnections<>0 then
// цикл по существующим каналам
for i:=0 to ServerSocket1.Socket.ActiveConnections-1 do
begin
// сохраним пакет (если ничего не прислали, по пакет пустой)
buf:=ServerSocket1.Socket.Connections[i].ReceiveText();
// условие, что пакет не пуст
if text<>'' then
begin
DivStr(pas,buf);
GetCode(pas,buf);
ServerSocket1.Socket.Connections[i].SendText(buf);

end;
end;
end;

при подключении клиента начинают сыпаться ошибки access volacation.
Что здесь не правильно