Форум программистов, компьютерный форум, киберфорум
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
4 / 4 / 0
Регистрация: 06.02.2018
Сообщений: 95
1

Сетевой чат

04.05.2018, 19:01. Показов 478. Ответов 1
Метки нет (Все метки)

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
procedure TForm1.FormCreate(Sender: TObject);
 
begin
 
  name:=InputBox('ââåäèòå èìÿ ïîëüçîâàòåëÿ','Ëîãèí','Èìÿ ïîëüçîâàòåëÿ íà àíãëèéñêîì');
 
 
    clntsckt1.Port:=28015;
    clntsckt1.Host:='192.168.1.116';
    clntsckt1.Active:=True;
 
 
 
 
 
 
 
end;
 
procedure TForm1.clntsckt1Read(Sender: TObject; Socket: TCustomWinSocket);
var
  mas:string;
begin
  Mas:=Socket.ReceiveText;
  mmo1.Lines.Add(Mas);
end;
 
procedure TForm1.edtTextKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if Key = 13 then
Begin
btn1.Click;
end;
end;
 
procedure TForm1.edtTextClick(Sender: TObject);
begin
edtText.Clear;
end;
 
 
 
 
 
 
 
 
 
procedure TForm1.btn1Click(Sender: TObject);
 
begin
   
text:=EdtText.Text;
pass:='1';
x:=length(text);
y:=length(pass);
 
 
    while x>y do begin
  pass:=pass+'1';
  y:=length(pass);
  end;
 
for i:=1 to x do begin
  a:=ord(text[i]);
  b:=ord(pass[i]);
  c:=a+b;
  if c>255 then c:=c-255;
  rez:=rez+chr(c);
  end;
 
   clntsckt1.Socket.SendText(Name+':'+rez) ;
edtText.Clear;
FillChar(i,sizeof(i),0);
 
 
  end;
 
 
 
 
 
procedure TForm1.N1Click(Sender: TObject);
begin
mmo1.Clear;
end;
 
procedure TForm1.N2Click(Sender: TObject);
begin
Close;
end;
 
procedure TForm1.N3Click(Sender: TObject);
begin
 clntsckt1.Active:=True;
end;
 
end.
пытался сделать шифровку сообщения, но у меня текст при новой отправке складывается с предыдущим, допустим написал я привет, мне ответили тем же, я решил написать как дела? но в чат выводится в одну строчку приветкак дела?, хоть привет небыло написано, что можно сделать
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
04.05.2018, 19:01
Ответы с готовыми решениями:

Сетевой чат
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics,...

Сетевой чат
каким образом на delphi можно сделать чат для возможности пользоваться через через интернет,...

Сетевой чат UDP
Пишу чат UDP, в процессе возникла ошибка, с которой не могу справиться. int main() { ...

Сетевой чат (ошибка отправления)
Я не знаю как сделать, чтобы клиент видел свои отправленные сообщения (при запуске сервера и...

1
2109 / 1255 / 444
Регистрация: 29.05.2013
Сообщений: 5,638
04.05.2018, 19:44 2
В русском языке принято предложения принято заканчивать каким-то спецсимволом (точкой, вопросом, восклицанием). Что вам мешает использовать эти правила?
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
04.05.2018, 19:44

Заказываю контрольные, курсовые, дипломные работы и диссертации здесь.

Сетевой чат на базе Access
Доброго времени суток! Решил попробовать сделать сетевой мессенджер для пользователей одной...

Сетевой чат с приватными сообщениями
Здравствуйте дорогие друзья. Есть вот такой чат, который состоит из сервера и клиента (естественно...

Сетевой чат с приватными сообщениями
Здравствуйте дорогие друзья. Есть вот такой чат, который состоит из сервера и клиента (естественно...

Hа сколько будет сложно написать сетевой чат
Доброе утро, на сколько будет сложно написать сетевой чат, то есть просто есть две WinForm, и туда...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.