嗨,我用IdFtp做图像上传到server.My,代码是上传了一个图像,但是上传后,IDFTP并没有断开连接,我找不到为什么我拿这个结果。我的代码是
Tfrm_main.fotoYolla(d:Timage;fileName:String);
var
Params: TIdMultipartFormDataStream;
Response: TStringStream;
var ms:TMemoryStream;
begin
ms := TMemoryStream.Create;
try
d.Bitmap.
我必须上传一个文本文件到我的安卓项目,所以我使用了IdFTP。这是代码:
Button2.Enabled:=False;
Label5.Text:='Uploading...';
Memo1.Lines.Add(Edit1.Text+':'+ComboBox1.Items.Text);
Memo1.SaveToFile('filehost.txt');
try
IdFTP1.Connect;
// I set the host, password and username
IdFTP1.Put('filehost.txt
我正在使用Indy IDFTP创建一个目录。我需要找到一种可靠的方法来确定目录是否存在,如果该目录不存在,则调用MakeDir。我尝试了以下代码,但在调用List时没有发生异常,因此即使当时目录不存在,也不会执行MakeDir。如何确定目录是否存在并在目录不存在时创建该目录?
{ Check to see if the '/public_html/XXX/' + iDomain + 'Thumbnails' directory exists }
try
IdFTP1.List(nil, '/public_html/XXX/'
我用IdHTTP和IdFTP写了一个程序,但是我有一个问题。我是在32位的windows XP (使用Delphi XE4)上写的,exe文件(Project1.exe)运行良好。当我尝试在64位的windows7上打开它时,计算机给我一个错误。
图片:
意思是“您无法访问该路径或指定的文件,可能您没有足够的权限”。我以前从未见过这个错误。在这里您可以看到包含源代码的文件夹的图片。
我如何解决我的问题?
代码如下:
function downloadSrc(var aUrl:ansiString):ansiString;
begin
with tIdHttp.create(nil) d
我在Delphi10.2中编写了一个小的DLL来使用Indy组件所具有的FTPS功能。从一个测试应用程序调用DLL,也是用Delphi 10编写的,工作效率为100%。但是,从Delphi6应用程序调用DLL会使我在borlndmm.dll中出现访问冲突。下面是连接到FTP服务器的简单代码示例。
{The function in my object:}
function TQXFTP.Connect: Boolean;
begin
Result := False;
IdFTP.Host := fHost;
IdFTP.Username := fUserName
function UploadToFTP(file: string ; PathSrv : string): Boolean;
var
server, port, user , password: string;
SR : TSearchRec;
begin
Result := True;
FEventLogger := TEventLogger.Create('Upload FTP');
if file <> '' then
begin
try
server := FServer;
我正在尝试使用idFTP获取几张图片,以便在Tlistview中显示,但图片太大,应用程序变得太慢。 所以我想知道是否有一些方法可以执行具有确定质量的idFTP.get。 例如,当我们使用save an image时,我们可以设置一个质量参数 var param1: TBitmapCodecSaveParams;
begin
param1.Quality:=500;
image.SaveToFile(filename),@param1);
end;
好吧,我有以下问题:
我喜欢在我的FTP服务器上的一个特殊文件夹中获取所有.txt文件的列表。我已经解决了这个问题。
if IdFTP1.DirectoryListing.Count>0 then
for i := 2 to IdFTP1.DirectoryListing.Count - 1 do
with ListViewMain.Items.Add do
Caption:=idftp1.DirectoryListing.Items[i].FileName;
但是现在,我的.txt文件是这样的:
Pro