一个好想关于内存的问题

[winefish]

一个发送文件的线程，先压缩编码，然后发送，连接服务器和发送中间不设断点调试就会报发送失败，弄了半天搞不出问题所在还请大家帮忙。
发送的代码，其实也挺简单
FtpClient1.HostName := SocketConfigure.MailHost;
FtpClient1.UserName := 'wss';
FtpClient1.PassWord := 'wss';
FtpClient1.Port := 'ftp';
FtpClient1.OnProgress := nil;
FtpClient1.OnRequestDone := nil;
FtpClient1.OnSessionConnected := nil;
FtpClient1.OnSessionClosed := nil;
FtpClient1.OnStateChange := nil;
FtpClient1.DisplayFileFlag := TRUE;
FtpClient1.HostDirName := 'c:\temp';
FtpClient1.OnDisplay := DisplayHandler;
FtpClient1.MultiThreaded := True;
FtpClient1.Binary := True;
FtpClient1.HostFileName := ExtractFileName(Files);
FtpClient1.LocalFileName := tempFTPPath + '\' + ExtractFileName(Files);
if not FtpClient1.Connect then
begin
FtpClient1.Abort;
Result := False;
Exit;
end;

if not FtpClient1.put then
begin
FtpClient1.Abort;
Result := False;
Exit;
end;
if not FtpClient1.Quit then
FtpClient1.Abort;
Result := True;

[winefish]

不是这样的，压缩发送是一个线程的，主线程里没有问题

[lextm]

似乎是发送部分没有等到雅俗阶段的数据准备完毕就开始发送了。

可以考虑加延时，因为你加断点的效果就是这样。

这也是你加了断点就没有错的原因吧。