Форум программистов, компьютерный форум, киберфорум
Наши страницы
C++ Builder
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.86/14: Рейтинг темы: голосов - 14, средняя оценка - 4.86
DeadHipo
85 / 85 / 33
Регистрация: 21.09.2013
Сообщений: 339
1

Передача данных через сеть

05.11.2013, 19:31. Просмотров 2535. Ответов 4
Метки нет (Все метки)

Есть форма заявки.

Передача данных через сеть


editы больше для удобства сделаны...но не в этом суть.
Возник вопрос. Требуется что бы на одном компьютере её заполнили и после нажатия на кнопку всё что заполнено уходило на другой компьютер в туже или другую форму для дальнейшей работы с информацией в editах... суть вообщем в передаче. Рассматривал много примеров чата ( в принципе похоже ), но всё же хотел совета от людей более знающих чем я) в какую сторону идти и через что делать. Если есть какая либо нормальная литература по поводу сети в builder или примеры буду рад. Заранее спасибо
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
05.11.2013, 19:31
Ответы с готовыми решениями:

Передача данных через сеть
используется - Client/Server Socket С++ B 6 Товарищи помогите решить...

Передача бинарных данных через COM
Есть компонент, написанный в VC++ 6.0 в ATL. И есть клиент, написанный в BC++...

Передача данных в виде структуры через ClientSocket
Проблема заключается в том что нужно передать структурный тип данных struct...

Чтение данных из файла и их передача через порт компьютера
Добрый день. Есть задача: в текстовый файл в реальном времени пишется поток...

Передача данных от клиента серверу через http proxy
Всем, доброго дня. Возникла следующая проблема: как реализовать взаимодействие...

4
2ima
☆ Форумчанин(FSC)☆
910 / 289 / 27
Регистрация: 28.04.2013
Сообщений: 2,451
Записей в блоге: 10
Завершенные тесты: 2
05.11.2013, 21:27 2
Вот мой пример подобного чата:
C++
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
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
 
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
#define logg Memo1->Lines->Add(TimeToStr(Now())+"::  "+
 
//---------------------------------------------------------------------------
 
void __fastcall TForm1::FormClose(TObject *Sender, TCloseAction &Action)
{
    ServerSocket1->Close() ;
    ClientSocket1->Close() ;
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::FormPaint(TObject *Sender)
{
     if (CheckBox2->Checked)
 SetWindowPos(Form1->Handle, HWND_TOPMOST,0,0,0,0,SWP_NOMOVE | SWP_NOSIZE);
     else
 SetWindowPos(Form1->Handle, HWND_NOTOPMOST,0,0,0,0,SWP_NOMOVE | SWP_NOSIZE);
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button3Click(TObject *Sender)
{
     Close();
}
//---------------------------------------------------------------------------
 
 
void __fastcall TForm1::CheckBox1Click(TObject *Sender)
{
     Edit1->Visible = !CheckBox1->Checked ;
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button1Click(TObject *Sender)
{
ClientSocket1->Host=Edit1->Text;
ClientSocket1->Address=Edit1->Text;
ServerSocket1->Active=true;
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::ServerSocket1ClientConnect(TObject *Sender,
      TCustomWinSocket *Socket)
{
    Shape1->Brush->Color = clLime;
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::ServerSocket1ClientDisconnect(TObject *Sender,
      TCustomWinSocket *Socket)
{
    Shape1->Brush->Color = clNavy;
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button2Click(TObject *Sender)
{
if(Edit3->Text=="ГЌГЁГЄ")
{
ShowMessage("Ââåäèòå Г*ГЁГЄ!");
}
if(Edit2->Text=="")
{
ShowMessage("Ââåäèòå ГІГҐГЄГ±ГІ ïîæГ*ëóéñòГ*");
}
Memo1->Lines->Add(Edit3->Text+" - "+Edit2->Text);
if(ServerSocket1->Active==true)
{
Shape1->Brush->Color = clLime;
for(int i=0;i<ServerSocket1->Socket->ActiveConnections;i++)
{
ServerSocket1->Socket->Connections[i]->SendText(Edit3->Text+" - "+Edit2->Text);
}
}
if(ClientSocket1->Active==true)
{
ClientSocket1->Socket->SendText(Edit3->Text+"::"+Edit2->Text);
Shape1->Brush->Color = clLime;
}
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::ClientSocket1Read(TObject *Sender,
      TCustomWinSocket *Socket)
{
Memo1->Lines->Add(Socket->ReceiveText());
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::ServerSocket1ClientRead(TObject *Sender,
      TCustomWinSocket *Socket)
{
Memo1->Lines->Add(Socket->ReceiveText());
}
//---------------------------------------------------------------------------
 
 
 
void __fastcall TForm1::Button4Click(TObject *Sender)
{
ServerSocket1->Active=true;
Button1->Enabled=false;
Memo1->Lines->Add("Ñåðåâåð ñîçäГ*Г*!");
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::ClientSocket1Connect(TObject *Sender,
      TCustomWinSocket *Socket)
{
Memo1->Lines->Add("Connected!");
}
//---------------------------------------------------------------------------
1
DeadHipo
85 / 85 / 33
Регистрация: 21.09.2013
Сообщений: 339
06.11.2013, 01:30  [ТС] 3
Разобрался более менее.
Возник другой вопрос... Реализация списка онлайна. Реально ли это сделать? Т.е. например когда ты заходишь в программу ты видишь людей у которых уже запущенна данная программа. Суть в том что бы автоматом получить адреса людей, а не вписывать их и уже после обращаться с заявкой или чатом.
0
red_KNOPOCHKA
27 / 20 / 1
Регистрация: 26.02.2013
Сообщений: 130
06.11.2013, 09:11 4
Если я не ошибаюсь, реализация программы зависит от того, по какой сети вы делаете чат: по локальной или по Интернету.
Давно делал оба этих варианта, точно не помню, но вроде бы FSC приводит вариант чата по локальной сети. Чат по Интернету (ftp-чат) можно сделать в простейшем случае созданием текстового файла на зарегистрированном домене.Туда можно заносить диалоги, которые вносятся и считываются разными компьютерами. Можно часть строк отвести под разные флаги, к примеру, число пользователей, дата последнего обращения
э по ним распознавать кто в настоящий момент пользуется программой и многое другое. Тут все зависит от вашей фантазии. По крайней мере я так делал.
Конечно, сначала вам придется зарегистрировать под себя домен, на котором можно разместить текстовый файл.В нете есть много бесплатных, например - яндекс (narod.ru или что-то вроде него). Есть даже готовый пример реализации в билдере. Прогуглите ftp-chat builder, я так нашел много примеров реализации. Кстати, вроде бы у Билдера в 6 и 2006 есть глюки с некоторыми компонентами Indy, поэтому желательно тут воспользоваться как можно новым билдером, я пользовался XE2.

По поводу литературы есть одна офигенная, самая лучшая книга по билдеру из всех, которые я когда-либо видел. Там только 300 страниц подробнейшего описания работы всех билдеровских сетевых компонентов, много самых разнообразных чатов. И еще море всего. Просто бери и переписывай. Еще там море примеров на API, мьютексы, семафоры и много другого. Автор Арханегльский. 3 том C++ Builder 6 и 2006. "Приемы программирования". (важно - путать с 1 и 2 книгой про компоненты и классы). Но книга очень редкая. Я так и не нашел ни разу ее в Интеренте (хотя щас может быть и появилась, просто давно это было). Хотя очень долго искал. Заказывал в издательстве. Сказали, что у них ее больше не выпускают. Их всего было напечатано примерно 3000 экземпляров. Я брал ее в студенческой библиотеке.Книга бесценная. Любой знаток билдера ее оценит.
1
DeadHipo
85 / 85 / 33
Регистрация: 21.09.2013
Сообщений: 339
07.11.2013, 20:46  [ТС] 5
книгу не нашёл... пишу в XE5
вопрос остался. мониторинг компьютеров в локальной сети их ип адреса и желательно имена.
если у кого есть какая то инфа по этому поводу
0
07.11.2013, 20:46
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
07.11.2013, 20:46

Сеть через tcp\ip
void __fastcall TMainForm::Button1Click(TObject *Sender) {...

H.264 через сеть
Добрый день Мой Raspberry Pi шлет по сети видеопоток в H.264 (через netcat)....

Передача через Socket
Помогите пожалуйста разобраться с передачей содержимого Edit1 через TcpClient ,...


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

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

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