Solved

Please help in delpi

Posted on 2011-03-18
12
324 Views
Last Modified: 2012-06-21
Hello experts.
Please help me.
I'm using Clever Internet Suite. clevercomponents.com

I use clmultiftpuploader, it work but i tried to upload files with proxy, but nothing happens.
please help.
anyone are working with this components?
i tried http proxy and also not working via proxy.
Thanks.
0
Comment
Question by:helyonprime96
  • 6
  • 5
12 Comments
 
LVL 19

Expert Comment

by:Thommy
ID: 35164275
Do you get any error message???

Please provide your code...
0
 

Author Comment

by:helyonprime96
ID: 35164315
procedure TForm1.clMultiUploaderError(Sender: TObject; Item: TclInternetItem;
  const Error: string; ErrorCode: Integer);
begin
memo1.Lines.Add(error + inttostr(errorcode));
end;

procedure TForm1.clMultiUploaderIsBusyChanged(Sender: TObject);
const
  states: array[Boolean] of string = ('Ready', 'Publishing...');
begin
  StatusBar1.Panels[0].Text := states[clMultiUploader.IsBusy];
end;

procedure TForm1.clMultiUploaderProcessCompleted(Sender: TObject;
  Item: TclInternetItem);
begin
  memLog.Lines.Add(Item.URL);
end;

procedure TForm1.btnStopClick(Sender: TObject);
begin
  clMultiUploader.Stop();
end;

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  CanClose := not clMultiUploader.IsBusy;
  if (not CanClose) then
  begin
    ShowMessage('Can not close the application. Please press the Stop button to cancel the publishing process.');
  end;
end;

procedure TForm1.btnPublishClick(Sender: TObject);
begin
  if clMultiUploader.IsBusy then Exit;
  memLog.Lines.Clear();

  clMultiUploader.Publish(edtLocalFolder.Text, edtFtpDir.Text);
end;

procedure TForm1.clMultiUploaderPrepareItemToPublish(Sender: TObject;
  Item: TclUploadItem; var CanProceed, Handled: Boolean);
begin
  Item.UserName := edtUser.Text;
  Item.Password := edtPassword.Text;
  handled := True;
end;

end.

Open in new window



i get timeout error.
and any file is uploaded to server.
can you help me? please.
0
 
LVL 24

Accepted Solution

by:
jimyX earned 500 total points
ID: 35164384
>   "i tried http proxy and also not working via proxy."
Ensure it's not connectivity problem.

Also it could be authentication/authorization problem, make sure you have set the correct properties with the valid values for the clMultiUploader:
  clMultiUploader.ProxySettings.Server := ProxyServer;
  clMultiUploader.ProxySettings.Port := ProxyPort;
  clMultiUploader.ProxySettings.UserName := ProxyUser;
  clMultiUploader.ProxySettings.Password := ProxyPassword;
  clMultiUploader.ProxySettings.ProxyType := ptNone;
  // ptUserSite, ptSite, ptOpen, ptUserPass, ptTransparent, ptCustomProxy, ptAccount
0
Windows Server 2016: All you need to know

Learn about Hyper-V features that increase functionality and usability of Microsoft Windows Server 2016. Also, throughout this eBook, you’ll find some basic PowerShell examples that will help you leverage the scripts in your environments!

 

Author Comment

by:helyonprime96
ID: 35164399
jimyX, i want to use a free proxy.
i doesnt have proxy accounts.

if i understand, i need ftp proxy??please help me
0
 

Author Comment

by:helyonprime96
ID: 35164429
i need to upload files to a ftp server, via proxy
0
 
LVL 24

Expert Comment

by:jimyX
ID: 35164480
But does the proxy allow your data connections?
0
 

Author Comment

by:helyonprime96
ID: 35164484
stay...

i doesnt understand.
i have a website and an ftp account for it.

i need that my app login to my ftp account use proxy.

this i need.
0
 
LVL 24

Expert Comment

by:jimyX
ID: 35164554
What happens when you connect? Do you connect successfully?
0
 

Author Comment

by:helyonprime96
ID: 35164592
timeout
0
 
LVL 24

Expert Comment

by:jimyX
ID: 35164675
Check the Timeout property and make sure it is set to reasonable time for connecting.
Then adjust the Try count property.
Finally adjust the ProxyType property to ptNone.

Also you may consider using other ftp programs to test your current configuration that you have. Your code could be OK and it is a problem somewhere else.
0
 
LVL 24

Expert Comment

by:jimyX
ID: 35165166
Also to test the proxy you can use one of the demos that comes with the Clever Internet Suite, which can be located under the installation path of that component. The default path is:
C:\Program Files\Clever Components\Clever Internet Suite\Delphi xxxx\Demos\FtpClientProxy
0
 

Author Closing Comment

by:helyonprime96
ID: 35168627
thanks.
i will resolve my troubles
0

Featured Post

PRTG Network Monitor: Intuitive Network Monitoring

Network Monitoring is essential to ensure that computer systems and network devices are running. Use PRTG to monitor LANs, servers, websites, applications and devices, bandwidth, virtual environments, remote systems, IoT, and many more. PRTG is easy to set up & use.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Suggested Solutions

If you’re thinking to yourself “That description sounds a lot like two people doing the work that one could accomplish,” you’re not alone.
This article will inform Clients about common and important expectations from the freelancers (Experts) who are looking at your Gig.
An introduction to basic programming syntax in Java by creating a simple program. Viewers can follow the tutorial as they create their first class in Java. Definitions and explanations about each element are given to help prepare viewers for future …
With the power of JIRA, there's an unlimited number of ways you can customize it, use it and benefit from it. With that in mind, there's bound to be things that I wasn't able to cover in this course. With this summary we'll look at some places to go…

803 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question