Сервер клиент передача данных

[linda88]

Как предать данные клиенту.

Необходимо приконектица к серверу и предать массив как это сделать?

[p51x]

Узнать, что за протокол используется и взять компонент, например из Indy.

[IliaIT]

через базу данных по ip и порту, например технология ADO, или post и get запросы если база не доступна напрямую.

[linda88]

можете вот с этим
http://www.cyberforum.ru/delphi-fire...ad1163441.html
помочь
прописываю 127.0.0.1 и 127.0.0.1:8040 пишит ошибку Areqite

Сервер

unit Znaika1;

interface

uses
  System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,
  FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, System.Rtti,
  FMX.Grid.Style, Data.Win.ADODB, Data.DB, FMX.Controls.Presentation,
  FMX.ScrollBox, FMX.Grid, FMX.Ani, Fmx.Bind.Grid, System.Bindings.Outputs,
  Fmx.Bind.Editors, Data.Bind.Controls, Data.Bind.EngExt, Fmx.Bind.DBEngExt,
  Data.Bind.Components, FMX.Layouts, Fmx.Bind.Navigator, Data.Bind.Grid,
  Data.Bind.DBScope, FMX.Edit, FMX.StdCtrls, IdBaseComponent, IdComponent,
  IdTCPConnection, IdTCPClient, IdHTTP, IdCustomTCPServer, IdTCPServer,
  IdContext, FMX.Memo;

type
  Tzaika = class(TForm)
    ADOConnection1: TADOConnection;
    Add: TButton;
    save: TButton;
    ADODataSet1: TADODataSet;
    StringGrid1: TStringGrid;
    BindSourceDB1: TBindSourceDB;
    LinkGridToDataSourceBindSourceDB1: TLinkGridToDataSource;
    BindingsList1: TBindingsList;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    Edit6: TEdit;
    Edit7: TEdit;
    LinkControlToFieldДатаактивации: TLinkControlToField;
    LinkControlToFieldДатапродажи: TLinkControlToField;
    LinkControlToFieldКод: TLinkControlToField;
    LinkControlToFieldПоле1: TLinkControlToField;
    LinkControlToFieldПредмет: TLinkControlToField;
    LinkControlToFieldТелефон: TLinkControlToField;
    LinkControlToFieldШкола: TLinkControlToField;
    IdHTTP1: TIdHTTP;
    Active: TButton;
    IdTCPServer1: TIdTCPServer;
    Memo1: TMemo;
    procedure AddClick(Sender: TObject);
    procedure saveClick(Sender: TObject);
    procedure ActiveClick(Sender: TObject);
    procedure IdTCPServer1Execute(AContext: TIdContext);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  zaika: Tzaika;
 a: array of string;
implementation

{$R *.fmx}

procedure Tzaika.ActiveClick(Sender: TObject);
begin

 idTcpServer1.DefaultPort:=8480; //Устанавливаем порт, такой же, как и у клиента
 idTcpServer1.Active:=true; //Включаем сервер

end;

procedure Tzaika.AddClick(Sender: TObject);
begin
  zaika.ADODataSet1.Insert
end;

procedure Tzaika.IdTCPServer1Execute(AContext: TIdContext);
var
S:string;
begin
s:= AContext.Connection.Socket.ReadLn; //Записываем в переменную "s" сообщение, присланное клиентом.
Memo1.Lines.add('['+Timetostr(time)+'] '+'['+AContext.Connection.Socket.Binding.PeerIP+'] '+ s); //Добавляем в Memo время, ip-adress клиента и сообщение

end;

procedure Tzaika.saveClick(Sender: TObject);
begin
  zaika.ADODataSet1.Post
end;

end.

Клиент:

unit client1;

interface

uses
  System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,
  FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, FMX.Edit,
  FMX.StdCtrls, FMX.Controls.Presentation, FMX.ScrollBox, FMX.Memo,
  IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient;

type
  Tclient = class(TForm)
    IdTCPClient1: TIdTCPClient;
    Memo1: TMemo;
    conect: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    Button1: TButton;
    procedure conectClick(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  client: Tclient;

implementation

{$R *.fmx}

procedure Tclient.Button1Click(Sender: TObject);
begin
 if idTcpClient1.Connected  then //Проверяем, есть ли подключение к серверу.
  begin
   idTcpClient1.Socket.WriteLn(edit2.text); //Посылаем текст, введенный в edit2, серверу.
   memo1.Lines.Add('['+Timetostr(time)+'] '+'Команда "'+ edit2.Text + '" послана серверу!'); //Добавляем запись в Memo клиента
  end
else memo1.Lines.Add('['+Timetostr(time)+'] '+'Вы не подключены к серверу!'); //Добавляем запись в Memo клиента

end;

procedure Tclient.conectClick(Sender: TObject);
begin
 idTcpClient1.Host:=edit1.text; //Вводим внутренний ip-adress сервера
 idTcpClient1.Port:=8480; //Порт клиента и сервера должен быть одним и тем же.
 idTcpClient1.Connect(); //Подключаемся к серверу
 if idtcpclient1.Connected=true then idTcpClient1.Socket.WriteLn('Client is connected'); //Если успешно подключились к серверу, то отправляем сообщение серверу о подключении.

end;

end.

[p51x]

Начнем с простого: на локалхосте сервер запущен? что у него в логах по коннектам?

[linda88]

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

[linda88]

Все вышло подскажите возможно будет по этому конекту предать таблицу

[p51x]

По любому конекту можно передать таблицу и много всего другого. Придумывайте протокол и передавайте.

[linda88]

Ясно спасибо, а можете помочь придумать как предать?

[Aliens_wolfs]

Вот тема "обмен сообщениями", в ней есть пример своего протокола обмена данными по сети, по изучайте, возможно кое что для себя найдете. https://www.programmersforum.ru/show...=186538&page=4