Hi people!!! Help me please!!! I have some problem:
My Memo1 component not filled,
My label1 does not consider.
Where my mistake
Thank you!!!
I write my code:
unit basetransport;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs,FTPSend, StdCtrls, blcksock, TypInfo;
type
TForm1 = class(TForm)
Label1: TLabel;
Button1: TButton;
Memo1: TMemo;
procedure Button1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
type
THookSocketStatus = procedure(Sender: TObject; Reason: THookSocketReason;
const Value: string) of object;
callback = class
class procedure Status (Sender: TObject; Reason: THookSocketReason;
const Value: String);
end;
var
Form1: TForm1;
ftps: TFTPSend;
SizeIn,SizeOut: integer;
implementation
{$R *.dfm}
class procedure callback.Status(Sender: TObject; Reason: THookSocketReason;
const Value: String);
var v: String;
begin
v := getEnumName (typeinfo(THookSocketReason), integer(Reason)) + ' ' + Value;
Form1.Memo1.Lines.Add(v);
if (reason=hr_writecount) then
inc(SizeOUT,StrToInt64Def(Value,0));
Form1.Label1.Caption:=inttostr(SizeOUT);
application.ProcessMessages;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
SizeIN:=0;
SizeOUT:=0;
FTPS.TargetHost:= 'Localhost';
FTPS.TargetPort := '21';
FTPS.UserName := 'market';
FTPS.Password := '';
if ftps.login then begin
form1.Caption:= 'OK';
end else
form1.Caption:= 'Bad';
FTPS.DSock.OnStatus := callback.Status;
FtpGetFile('localhost', '21', 'data_06.7z', 'data_06.7z', 'market', '');
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
ftps:= TFTPSend.Create;
end;
-------------------------------------------------------------------------
Using Tomcat but need to do more? Need to support web services, security?
Get stuff done quickly with pre-integrated technology to make your job easier.
Download IBM WebSphere Application Server v.1.0.1 based on Apache Geronimo
http://sel.as-us.falkag.net/sel?cmd=lnk&kid=120709&bid=263057&dat=121642
_______________________________________________
synalist-public mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/synalist-public
