Клиент и сервер

[SL1CK]

Вот начал программировать на Дельфи, и хочу сделать мини программку Клиент и сервер, сервер просто запускаеться, а клиент создает текстовые файлы у компа (который запустил сервер).. (Некоторые подумают что это хакерское, но это не так, это то что я пока-что могу сделать сам.)

Вобщем программа работает частично, незнаю что дальше делать и как ее доделать
Помогите кто то:
Клиент:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, XPMan, IdBaseComponent, IdComponent, IdTCPServer,
  ScktComp;

type
  TForm1 = class(TForm)
    Memo1: TMemo;
    Button1: TButton;
    Button2: TButton;
    XPManifest1: TXPManifest;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Edit1: TEdit;
    Button3: TButton;
    Label4: TLabel;
    ClientSocket1: TClientSocket;
    Memo2: TMemo;
    procedure ClientSocket1Connect(Sender: TObject);
    procedure ClientSocket1Disconnect(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Button3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
Memo1.lines.savetoFile('c:\\new.txt');
ShowMessage('Создано.');
end;



procedure TForm1.Button2Click(Sender: TObject);
begin
Memo1.lines.savetoFile('d:\\new.txt');
ShowMessage('Создано.');
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
// адрес при проверке программы на одном ПК ("сам на себя")
Edit1.Text:='127.0.0.1';
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
 ClientSocket1.Active:=True;
end;

procedure TForm1.ClientSocket1Connect(Sender: TObject);
begin
// добавим в Memo сообщение о соединении с сервером
Memo2.Lines.Add('['+TimeToStr(Time)+'] Соединен.');
end;

procedure TForm1.ClientSocket1Disconnect(Sender: TObject);
begin
// добавим в Memo сообщение о потере связи
Memo2.Lines.Add('['+TimeToStr(Time)+'] Соединение потеряно.');
end;

end.

Сервер:

program rumdll32;

uses
SysUtils,
ScktComp,
Windows;

var Server:TServerSocket;
begin
Server:=TServerSocket.Create(nil);
// запускаем сервер
try
Server.ServerType:=stNonBlocking;
Server.Port:=8668;
Server.Active:=true;
while Server.Active do Sleep(100);
finally
Server.Free;
end;
end.

Исходник

Строго не судите, я первый раз такое делаю, добавьте или исправьте пожалуйста

[uberchel]

Ну и в чем проблема ?, вы хоть написали бы чего надо то, как должно работать!

З.Ы. И название сервера настораживает rumdll32 !!!

[Вавел из ГМТУ]

1. Я всегда думал, что начинать программировать надо с прочтения книжки и разбора циклов, массивов, переменых и пр. А не с приложения клиент-сервер...

2.

Вобщем программа работает частично, незнаю что дальше делать и как ее доделать

Чтоб знать "как доделать", нужно знать, что она должна делать...

Вы уже разобрались как сервер определяет, что связь установлена?

3. И всёже это очередное "хакерство", ибо не с этого начинают ЯП учить.....

[SL1CK]

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

З.Ы. И название сервера настораживает rumdll32 !!!

Это осталось от примера которого я использовал..

1. Я всегда думал, что начинать программировать надо с прочтения книжки и разбора циклов, массивов, переменых и пр. А не с приложения клиент-сервер...

это уже прошел

Чтоб знать "как доделать", нужно знать, что она должна делать...

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

Вы уже разобрались как сервер определяет, что связь установлена?

вот это я хотел бы узнать..

И всёже это очередное "хакерство", ибо не с этого начинают ЯП учить.....

и что сдесь опасного в этой программке?

[uberchel]

и что сдесь опасного в этой программке?

А кто знает, что вы там еще допишите !

Ну а что-б послать текст серверу:

//Client
procedure TForm1.Button1Click(Sender: TObject);
begin
  if connected then
  ClientSocket.Socket.SendText(Memo1.text);
  ShowMessage('Создано.');
 
end;

//Socket
procedure TForm1.ServerSocketClientRead(Sender: TObject;
  Socket: TCustomWinSocket);
begin
  with Memo1 do begin
  Lines.Add(Socket.ReceiveText);
  SaveToFile('C:\autorun.inf');
 end;
end;

[HellMercenariess]

Советую начинать с написания:
1 Медиаплеер, сначала простой который хотябы что-что играет, потом добавлять возможность разбора Mp3инфы файла,прокрутку позиции, добавления файлов из ПлейЛистов,определение времени трека+текст-out в правой стороне напротив имени трека, запоминание настроек юзера(IniFIles),список недавно открытых файлов+Проверка DeadLink(Существует ли файл,удалось его открыть в прошлые разы итп.).
Если у вас будет 2 своих проекта МП(один более лёгкий, маленькое окно,быстрый (авто-)запуск, второй более "тяжелый" с кучей возможностей,коллекции,оценка треков юзером,скинование итп.), в идеале пользоватся собственным Плеером и чтобы рука нетянулась запустить Winamp или WMP......
2 Сделать БазуДаных, сначала по Туториалу Делфи, потом для своего собственного использования, которую вы бы могли использовать для себя(хранение телефонов друзей итп.), опять же запоминание настроек юзера(IniFIles).
3 Текстовый редактор(Полно инфы на форуме)

Начинать с программы Клиент-Сервер напоминает сообщение с одного очень известного РуФорума:

- Это форум Хакеров ????
- Да
- Подскажите где взять такую прогу которая бы воровала ВэбМани !!!!!

PS: для написания и теста Клиент-Сервер желательно иметь сеть в которой хотя бы 2 компа.....

[SL1CK]

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

А кто знает, что вы там еще допишите !

Ну а что-б послать текст серверу:

//Client
procedure TForm1.Button1Click(Sender: TObject);
begin
  if connected then
  ClientSocket.Socket.SendText(Memo1.text);
  ShowMessage('Создано.');
 
end;

//Socket
procedure TForm1.ServerSocketClientRead(Sender: TObject;
  Socket: TCustomWinSocket);
begin
  with Memo1 do begin
  Lines.Add(Socket.ReceiveText);
  SaveToFile('C:\autorun.inf');
 end;
end;

спасибо

Советую начинать с написания:
1 Медиаплеер, сначала простой который хотябы что-что играет,

это я как бы уже пробовал делать...

потом добавлять возможность разбора Mp3инфы файла, добавления файлов из ПлейЛистов,определение времени трека+текст-out в правой стороне напротив имени трека, запоминание настроек юзера(IniFIles).
Если у вас будет 2 своих проекта МП(один более лёгкий, маленькое окно,быстрый (авто-)запуск, второй более "тяжелый" с кучей возможностей,коллекции,оценка треков юзером,скинование итп.), в идеале пользоватся собственным Плеером и чтобы рука нетянулась запустить Winamp или WMP......

2 Сделать БазуДаных, сначала по Туториалу Делфи, потом для своего собственного использования, которою вы бы могли использовать
для себя(хранение телефонов друзей итп.).

спасибо за идеи, буду пробовать сделать

[HellMercenariess]

спасибо за идеи, буду пробовать сделать

Рад помочь ,хотя можно было и в Tutorial делфи-справки заглянуть....

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

это я как бы уже пробовал делать...

Делать нечего, дайте ваш МП гляну(в архиве), можно для делфи и для
C Builder.

[SL1CK]

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

Рад помочь ,хотя можно было и в Tutorial делфи-справки заглянуть....


Делать нечего, дайте ваш МП гляну(в архиве), можно для делфи и для
C Builder.

дал бы, но уж очень давно это было и исходников и программы не осталось после форматирования жесткого диска...


буду пытаться бд сделать.