witam. w swoim programie chcialbym zawrzec gotowe rozwiazanie do wysylania pliku na serwer ale wyskakuje blad "file not found StrUtils.dcu" przy kompilacji na wysokosci "uses". tego pliku nie bylo w spakowanym programie :( oto czesc kodu:
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
Dialogs, IdComponent, IdTCPConnection, IdTCPClient, IdFTP,
IdBaseComponent, IdAntiFreezeBase, IdAntiFreeze, StdCtrls, ExtCtrls, StrUtils;
type
TFTPD = class(TForm)
M: TMemo;
IdAntiFreeze1: TIdAntiFreeze;
ftp: TIdFTP;
T: TTimer;
log: TMemo;
procedure FormCreate(Sender: TObject);
procedure TTimer(Sender: TObject);
procedure ftpWorkBegin(Sender: TObject; AWorkMode: TWorkMode;
const AWorkCountMax: Integer);
procedure ftpWorkEnd(Sender: TObject; AWorkMode: TWorkMode);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure ftpConnected(Sender: TObject);
procedure ftpDisconnected(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
FTPD: TFTPD;
</delphi>
jesli bedzie trzeba podesle takze kod wszystkich procedur!
dzieki bardzo z gory!