Win32, Yes.
I had a look into Your FTPTST example. So I need only the status-function. How
do You display Your messages? I can't show the messages in my program. In
FTPTST is a display-function.
procedure Display(const Msg: String);
procedure DisplayHandler(Sender: TObject; var Msg : String);
procedure TFtpReceiveForm.Display(const Msg : String);
var
I : Integer;
begin
DisplayMemo.Lines.BeginUpdate;
try
if DisplayMemo.Lines.Count > 200 then begin
for I := 1 to 50 do
DisplayMemo.Lines.Delete(0);
end;
DisplayMemo.Lines.Add(Msg);
finally
DisplayMemo.Lines.EndUpdate;
{$IFNDEF VER80}
SendMessage(DisplayMemo.Handle, EM_SCROLLCARET, 0, 0);
{$ENDIF}
end;
end;
procedure TFtpReceiveForm.DisplayHandler(Sender : TObject; var Msg : String);
begin
Display(Msg);
end;
I don't see any error-message. For example the FTP is not connected, delphi2005
gives me the error-message with the option to break or continue. i think i miss
something.
So what do I need minimal to get the error-messages?
Send instant messages to your online friends http://uk.messenger.yahoo.com
--
To unsubscribe or change your settings for TWSocket mailing list
please goto http://www.elists.org/mailman/listinfo/twsocket
Visit our website at http://www.overbyte.be
