1 / 1 / 0
Регистрация: 13.02.2012
Сообщений: 25
1

Текстовый чат.

06.04.2012, 20:14. Показов 4148. Ответов 0
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Всем привет, вот пишу локальный чат. Решил написать с помощью файлов. Но проблемма, когда программа открыта у двух людей сразу, то у кого то одного программа падает. Подскажите как лучше реализовать. Я написал как-то вот так :
Pascal
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
program chatAlpha;
// чат v.01 alpha
uses crt;
var YouMesg,mesg,a:string;
    file1,file2:text;
begin
     writeln('Вас преведствует локальный чат версии 01.a.');
     writeln('Вы уже можете начать передавать сообщения');
     writeln('Что бы выйти из чата надо набрать <exit>');
     writeln('------------------------------------------');
while YouMesg<>'exit' do begin
assign(file1,'file1.txt'); reset(file1); read(file1);
assign(file2,'file2.txt'); rewrite(file2); read(file2);
 
                       { write('Вы: ');readln(YouMesg); // вы вводите меседж
                        writeln(file2,mesg); // выводит сообщение другово человека.
                        read(file1,mesg); writeln('Собеседник : ',mesg); //и тут тоже }
                        
                        write('Вы: '); readln(YouMesg); writeln(file2,mesg);
                        // вы вводите сообщение, и заносите в file2 (Red line)
                        read(file1,mesg);// читаем file1 - присваиваем телу значение mesg
                        writeln('Собеседник : ',mesg);
                        //выводим тело(сообщение)-mesg
 
 
 
close(file1);
close(file2);
end;
end.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
06.04.2012, 20:14
Ответы с готовыми решениями:

Текстовый файл содержит список фамилий и должность сотрудников. Сформировать текстовый файл, содержащий фамил
Текстовый файл содержит список фамилий и должность сотрудников. Сформировать текстовый файл,...

дан текстовый файл.перенести в текстовый файл все строки, содержащие заданное слово
помогите пожалуйста решить задачу... условие:дан текстовый файл.перенести в текстовый файл все...

Дан текстовый файл. Вывести в другой текстовый файл количество слов одинаковой длины
1. Дан текстовый файл. Вывести в другой текстовый файл количество слов одинаковой длины.Пример...

ПУСТЬ это текстовый файл, который содержит НЕСКОЛЬКО ЦЕЛЫХ ЧИСЕЛ. ОТКРЫТЬ этот текстовый файл и КАЖДЫЙ С ЧИСЕЛ вознести В КУБ.
ПУСТЬ это текстовый файл, который содержит НЕСКОЛЬКО ЦЕЛЫХ ЧИСЕЛ. ОТКРЫТЬ этот текстовый файл и...

0
06.04.2012, 20:14
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
06.04.2012, 20:14
Помогаю со студенческими работами здесь

Текстовый чат
Здрасте, сразу извиняюсь если для кого-то это вопрос покажется глупым... Ну вообщем я очень...

Аналог skype в браузере - видео, голосовой и текстовый чат
Создал эту тему просто для того что бы узнать Есть вопрос: создать скайп только что бы он в...

(ЧАТ) Скрипт, очищающий текстовый файл, я сделал, но он очищает, а потом ничего не вводит?
&lt;form name=&quot;cleaner&quot; action=&quot;&lt;? cleanall();?&gt;&quot; method=&quot;post&quot;&gt; &lt;?php function cleanall() ...

Чат или видео чат
Создал тему здесь, т.к. ближайшего раздела не вижу. Хотелось бы понять как установить видеочат,...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru