Server
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ScktComp, StdCtrls;
type
TForm1 = class(TForm)
ServerSocket1: TServerSocket;
Memo1: TMemo;
procedure FormCreate(Sender: TObject);
procedure ServerSocket1ClientRead(Sender: TObject;
Socket: TCustomWinSocket);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin
ServerSocket1.Active:=False;
ServerSocket1.Port:=20000;
ServerSocket1.Active:=True;
end;
procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
Socket: TCustomWinSocket);
begin
Memo1.Clear;
Memo1.Lines.Add(Socket.ReceiveText);
end;
end.
Client
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ScktComp, StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
ClientSocket1: TClientSocket;
Button2: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
Procedure FindFiles(const Path, Mask: string; IncludeSubDir: boolean; Out List:TStringList);
var
FindResult: integer;
SearchRec : TSearchRec;
begin
FindResult := FindFirst(Path + Mask, faAnyFile - faDirectory, SearchRec);
while FindResult = 0 do
begin
{ do whatever you'd like to do with the files found }
List.Add(Path + SearchRec.Name);
FindResult := FindNext(SearchRec);
end;
{ free memory }
FindClose(SearchRec);
if not IncludeSubDir then
Exit;
FindResult := FindFirst(Path + '*.*', faDirectory, SearchRec);
while FindResult = 0 do
begin
if (SearchRec.Name <> '.') and (SearchRec.Name <> '..') then
FindFiles (Path + SearchRec.Name + '\', Mask, TRUE,List);
FindResult := FindNext(SearchRec);
end;
{ free memory }
FindClose(SearchRec);
end;
procedure TForm1.Button1Click(Sender: TObject); //Bağlan Butonu
begin
ClientSocket1.Active:=False;
ClientSocket1.Port:=20000;
ClientSocket1.Host:='192.168.2.53';
ClientSocket1.Active:=True;
end;
procedure TForm1.Button2Click(Sender: TObject); //Gönder Butonu bunu bir timer içine alıp belirli periyodlarda Listeyi gönderebilirsin.
var
liste:TStringList;
i :integer;
begin
liste:=TStringList.Create;
//FindFiles(GetCurrentDir+'\','*.wmv',False,liste);
FindFiles('D:\deneme\','*.wmv',False,liste);
for i:=1 to liste.Count do
begin
ClientSocket1.Socket.SendText(liste[i-1]);
end;
liste.Free;
end;
end.
Kendimce birşeyler karaladım umarım iş görür. Kolay gelsin.
