06.11.2019, 18:22
|
Прохожий
|
|
Регистрация: 06.11.2019
Сообщения: 2
Версия Delphi: Delphi 7
Репутация: 10
|
|
грузит память
Здравствуйте, ребята программа постепенно грузит память прошу помощи
PHP код:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ScktComp, StdCtrls;
type
TForm1 = class(TForm)
Log: TMemo;
Button1: TButton;
Button2: TButton;
Client: TClientSocket;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure ClientError(Sender: TObject; Socket: TCustomWinSocket;
ErrorEvent: TErrorEvent; var ErrorCode: Integer);
procedure ClientRead(Sender: TObject; Socket: TCustomWinSocket);
private
{ Private declarations }
public
{ Public declarations }
end;
type
TByteArray = array of byte;
var
Form1: TForm1;
implementation
{$R *.dfm}
function ByteArrayToHexString(const InArr: array of Byte): string;
var
tmpStrList: TStringList;
i: Integer;
begin
tmpStrList := TStringList.Create;
try
for I := Low(InArr) to High(InArr) do
begin
tmpStrList.Append(IntToHex(InArr[i], 2));
end;
tmpStrList.Delimiter := ' ';
Result := tmpStrList.DelimitedText;
finally
tmpStrList.Free;
end;
end;
procedure ToLog(log: string);
begin
form1.log.Lines.Add(log);
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
if Client.Active then begin
Client.Active:=False;
Exit;
end;
Client.Address:='162.220.11.11';
Client.Port := 2106;
Client.Active:=True;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
Client.Active:=False;
end;
procedure TForm1.ClientError(Sender: TObject; Socket: TCustomWinSocket;
ErrorEvent: TErrorEvent; var ErrorCode: Integer);
begin
ErrorCode := 0;
Socket.Close;
end;
procedure TForm1.ClientRead(Sender: TObject; Socket: TCustomWinSocket);
var
len : integer;
Buffer : TByteArray;
begin
setLength(Buffer, Socket.ReceiveLength);
len := Socket.ReceiveBuf(Buffer[0], Socket.ReceiveLength);
ToLog('Ответ сервера: ' + ByteArrayToHexString(Buffer));
end;
end.
|