[co6r]

Здравствуйте!
Мне нужна помощь в создании программы, которая по сути должна быть недочатом)
Суть такая: Я, с компьютера А заполняю форму "Зонд №; Таб. №; описываю неполадку; Отправляю". На компьютере Б Приходит сообщение с этим текстом красного цвета, после устранения неполадки, компьютер Б ставит галочку на против сообщения и оно становиться зеленым.

Может быть аналогичные способы кому в голову придут...

Возможно ли такое сделать?
Возможно ли послать сообщение на определенный компьютер а не на все компьютеры с включенной программой?

Пишу на делфи второй день , знаю не много, т.к. руководствуюсь методом тыка и вашим сайтом.
Присоединяю исходник программы, на той стадии что сейчас есть.

[co6r]

возможно не ставить галочку, на компьютере Б, а нажимать на сам текст в Мемо окне

[co6r]

Как сделать так, чтобы входяще и исходящие сообщения были разных цветов?
Как сделать так, чтобы сообщение отправлялось на выбранный IP из списка, а не на все?
Как сделать чтобы ComboBox сам отчищался после отправки?
как сделать так, чтобы история чата сама сохранялась?
Можно сделать так, чтобы окно которое выскакивает вправо внизу, выскакивало только при получении сообщения?

Что то эту ветку совсем не просматривают... помогите новичку )

Опять же присоединяю 2 исходника

[SHKIP3R]

хоть и программа твоя проста, как 5 копеек, но я думаю... мало кто будет её делать за тебя, попробуй предложить наших деревянных рубликов, и желающие тут же откликнутся, и в течении дня-двух всё за тебя напишут

[TOJluK]

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

Как сделать так, чтобы входяще и исходящие сообщения были разных цветов?
Как сделать так, чтобы сообщение отправлялось на выбранный IP из
Как сделать чтобы ComboBox сам отчищался после отправки?
как сделать так, чтобы история чата сама сохранялась?
Можно сделать так, чтобы окно которое выскакивает вправо внизу, выскакивало только при получении сообщения?

Что то эту ветку совсем не просматривают... помогите новичку )

Опять же присоединяю 2 исходника

Сразу скажу, исходники не смотрел... Так что ответы несколько обобщенные
1) Длоя разных цветов используй RichEdit, там можно менять цвет каждой строки а не всего текста как в Memo
2) Про IP не подскажу
3) ComboBox.Text:='' для удаления текста или ComboBox1.Items.Clear для удаления элементов (поставь конце процедуры отправки)
4) Обработчик OnChange у RichEdit и там RichEdit1.Lines.SaveToFile как вариант
5) нет ответа, поскольку не смотрел исходники

[lmikle]

1. Можно использовать TListBox с ручной отрисовкой итема. Там вариантов тьма, так что тут надо понимать чего ты хочешь.
2. Есть вопрос. Компьютер Б один или их несколько. Обычно такие системы пишутся в архитектуре клиент-сервер. Т.е. есть некоторый сервер, к которому могут присоединяться клиенты и посылать ему разные сообшения, а он, сервер, на эти сообщения отвечает. Т.е. не совсем понятно как твоя программа должна работать - опиши варианты взаимодействия на некотором ландшафте сети, тогда получишь более дельные советы.
3. Если просто очистить текст, то как сказали - ComboBox1.Text := ''. Если у тебя выбор строго из списка, то можно так: ComboBox1.ItemIndex := -1
4. Сохранить ее руками. Между сеансами - в файле. Вариантов тоже маса - все зависит от того, какую информацию ты должен сохранять (в смысле кроме самомго текста сообщения).
5. Да, конечно. В момент получения надо вызвать соответсвующую функцию. Зависит от того, как ты будешь реализовывать саму нотификацию.

[co6r]

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

1. Можно использовать TListBox с ручной отрисовкой итема. Там вариантов тьма, так что тут надо понимать чего ты хочешь.
2. Есть вопрос. Компьютер Б один или их несколько. Обычно такие системы пишутся в архитектуре клиент-сервер. Т.е. есть некоторый сервер, к которому могут присоединяться клиенты и посылать ему разные сообшения, а он, сервер, на эти сообщения отвечает. Т.е. не совсем понятно как твоя программа должна работать - опиши варианты взаимодействия на некотором ландшафте сети, тогда получишь более дельные советы.
3. Если просто очистить текст, то как сказали - ComboBox1.Text := ''. Если у тебя выбор строго из списка, то можно так: ComboBox1.ItemIndex := -1
4. Сохранить ее руками. Между сеансами - в файле. Вариантов тоже маса - все зависит от того, какую информацию ты должен сохранять (в смысле кроме самомго текста сообщения).
5. Да, конечно. В момент получения надо вызвать соответсвующую функцию. Зависит от того, как ты будешь реализовывать саму нотификацию.

1. Я хочу чтобы было как в аське) Я пишу одним цветом, сообщения мне приходят другим)

2.Компьютеров А много, около 50 штук, компьютер Б один.
Собственно с версии 6 я отправляю на компьютер Б,
А с версии 7 я выбираю из списка "зонд " циферку и он должен определить айпи по этой цифре и послать на нее.
3. Понятно.
4. Сохраняться должна каждая новая строка которая появляется на компьютере Б (и отправленные и принятые сообщения).
5. нотификация? что это?

[PhoeniX]

5. Нотификация - от Notify "оповещание". Додумывай сам.

остальное не скажу, потому что с таким мало работал...

[co6r]

так, сделал чтобы отчищалось.

И начал побывать с сохранением логов.
Нашел в книжке код (не могу написать, оставил на работе, напишу завтра).
он создает файл
Сохраняет в него все из Мемо окна,
Но при следующем сохранении, он не дописывает, а удаляет и создает этот файл заново.
Я так понимаю что я на правильном пути, но что то не так ( создавать заново файл файл не должен, а должен дописывать вновь поступившее).

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

// ОБРАБОТКА ВХОДЯЩИХ СООБЩЕНИЙ //
procedure TForm1.Timer1Timer(Sender: TObject);
var
buf : array [0..255] of Char;
recv : integer;
IP : PChar;
Port : integer;
begin

//NET_Update не вызывается, т.к. APL пакеты не посылаем...
// Цикл до тех пор, пока в очереди входящих есть пакеты
while NET_Recv(@buf, 255, IP, Port, recv) > 0 do
Memo1.Lines.Add(Copy(buf, 1, recv));
end;

и

procedure TForm1.Button3Click(Sender: TObject);
var
str : string;
begin
str := Memo1.Text; // составляем сообщение
Edit1.Text := '';

Form1.fShowHint(str);
end;

только как.... могу ли я как то вместо Memo1.Text указать входящее сообщение?

Прердыдущие вопросы в силе

[co6r]

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

1. Можно использовать TListBox с ручной отрисовкой итема. Там вариантов тьма, так что тут надо понимать чего ты хочешь.

непонятно... пишу код

Код:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    ListBox1: TListBox;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);


  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}



procedure TForm1.Button1Click(Sender: TObject);
var
 str : string;
 begin
 str := Edit1.Text; // сообщение
 Edit1.Text := '';
 end;

end.

В едит он исчезает а в Лист бох не приходит

[TOJluK]

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

непонятно... пишу код

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
str : string;
begin
str := Edit1.Text; // сообщение
Edit1.Text := '';
end;

В едит он исчезает а в Лист бох не приходит

Шо то я не увидел в коде как ты передаешь в лисбокс значения...
Не хватает, немного, строчки вот такой вот, примерно:

Код:

ListBox1.Items.Add(Edit1.Text)

[PhoeniX]

Так... я смотрю, ты это долго делать будешь...
Стучи в ICQ 488341189, разберёмся. с текстовыми файлами работал, с сокетами тоже попытаюсь помочь.

[co6r]

1. Можно использовать TListBox с ручной отрисовкой итема. Там вариантов тьма, так что тут надо понимать чего ты хочешь.

Так, сделал

procedure TForm1.Button1Click(Sender: TObject);
var
str : string;
begin
str := Edit1.Text; // ñîîáùåíèå
ListBox1.Items.Add(Edit1.Text);
Edit1.Text := '';
end;

What is ручная отрисовка итема?

Самые важные вопросы:
1. Логирование
2. Отправка сообщений на выбранный IP
3. Выделение Входящих/Исходящих сообщений
4. Отображение в всплывающем окне ТОЛЬКО входящего сообщения


Мало времени учеба работа все занимают... на работе интернет не дают, собаки)