Прошу прощения если этот вопрос уже задовали!!
Помогите новечку!!Я ничего не соображаю в делфи!Вот код сервера
Код:
procedure TForm1.AddLinef(const f: String);
begin
Memo2.Lines.Add(f);
end;
procedure TForm1.AddLined(const d: String);
begin
Memo1.Lines.Add(d);
end;
procedure TForm1.sbtClearClick(Sender: TObject);
begin
Memo1.Clear;
end;
procedure TForm1.sbtClearClick1(Sender: TObject);
begin
Memo2.Clear;
end;
procedure TForm1.sbtStartstopClick(Sender: TObject);
begin
if sbtStartStop.Tag = 0 then
begin
ServerSocket1.Port:=sedPort.Value;
ServerSocket1.Active:=true;
sbtStartStop.Caption:='Остановить сервер';
sbtStartStop.Tag:=1;
AddLinef('['+DateTimeToStr(Now) + ']: Сервер успешно запущен на ' + IntToStr(sedPort.Value) + ' порту');
end
else
begin
ServerSocket1.Active:=false;
sbtStartStop.Caption:='Запустить сервер';
sbtStartStop.Tag:=0;
AddLinef('['+DateTimeToStr(Now) + ']: Сервер успешно остановлен');
end
end;
procedure TForm1.ServerSocket1ClientConnect(Sender: TObject;
Socket: TCustomWinSocket);
begin
AddLinef('['+DateTimeToStr(Now) + ']: Присоединился клиент ' + Socket.RemoteAddress + ' (' + Socket.RemoteHost + ') на порт ' + IntToStr(Socket.RemotePort));
end;
procedure TForm1.ServerSocket1ClientDisconnect(Sender: TObject;
Socket: TCustomWinSocket);
begin
AddLinef('['+DateTimeToStr(Now) + ']: Клиент ' + Socket.RemoteAddress + ' (' + Socket.RemoteHost + ') отсоединился от порта ' + IntToStr(Socket.RemotePort));
end;
procedure TForm1.ServerSocket1ClientError(Sender: TObject;
Socket: TCustomWinSocket; ErrorEvent: TErrorEvent;
var ErrorCode: Integer);
begin
AddLinef('Клиент ошибка. Code = '+IntToStr(ErrorCode));
end;
procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
Socket: TCustomWinSocket);
begin
AddLinef('['+DateTimeToStr(Now) + ']Клиет прислал сообщение');
AddLined('> '+Socket.ReceiveText);
end;
procedure TForm1.ServerSocket1ClientWrite(Sender: TObject;
Socket: TCustomWinSocket);
begin
AddLinef('Теперь можно написать в сокет');
end;
procedure TForm1.ServerSocket1GetSocket(Sender: TObject; Socket: Integer;
var ClientSocket: TServerClientWinSocket);
begin
AddLinef('');
end;
procedure TForm1.ServerSocket1GetThread(Sender: TObject;
ClientSocket: TServerClientWinSocket;
var SocketThread: TServerClientThread);
begin
AddLinef('Get Thread');
end;
procedure TForm1.ServerSocket1ThreadEnd(Sender: TObject;
Thread: TServerClientThread);
begin
AddLinef('Thread end');
end;
procedure TForm1.ServerSocket1ThreadStart(Sender: TObject;
Thread: TServerClientThread);
begin
AddLinef('Thread start');
end;
procedure TForm1.Button3Click(Sender: TObject);
var i: Integer;
begin
If ServerSocket1.Active=True then
ServerSocket1.Socket.Connections[0].SendText(':'+Edit1.Text);
AddLined(':'+Edit1.Text);
end;
end.
Мне необходимо чтобы присланные данные , записанные в Memo1, сохранялись в буфер, а потом последний элемент буфера сохронялся в отдельный файл или еще лучше передовался к php клиенту.Заранее благодарен всем кто поможет!