Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Netzwerke (https://www.delphipraxis.net/14-netzwerke/)
-   -   Delphi JPG auf FTP hochladen geht nicht (https://www.delphipraxis.net/56468-jpg-auf-ftp-hochladen-geht-nicht.html)

Coldice111 6. Nov 2005 12:18


JPG auf FTP hochladen geht nicht
 
Hi!
Es geht auch alles bis auf das hochladen von dem Bild.
Hier der Code :

Delphi-Quellcode:
procedure TForm4.Button1Click(Sender: TObject);
var
j:tjpegimage;
b1,b2:tbitmap;
begin
  b1:=tbitmap.Create;
  b1.width:=1025;
  b1.height:=780;
  b1.canvas.handle:=GetWindowDC(Handle); // Desktop erfassen
  b2:=tbitmap.create;
  b2.width:=b1.width;
  b2.height:=b1.height;
    b2.Canvas.CopyRect(screen.desktoprect,b1.Canvas,screen.desktoprect);
  j:=tjpegimage.create;
  j.assign(b2);
  j.savetofile('C:\'+edit1.text+'.jpg');
end;

procedure TForm4.Button2Click(Sender: TObject);
begin
  ftp.Name:='********';
  ftp.Password:='******';
  ftp.Host:='*******';
  ftp.connect;
  ftp.put('c:\'+edit1.text+'.jpg',edit1.text+'.jpg',false);
end;
Wenn ich auf hochladen klicke kommt Zugriffsverletzung

Cu Coldice111

glkgereon 6. Nov 2005 12:19

Re: JPG auf FTP hochladen geht nicht
 
was ist "ftp"?

bei welcher anweisung kommt der error? Init? Connect? Put?

Neutral General 6. Nov 2005 12:36

Re: JPG auf FTP hochladen geht nicht
 
Also wenn ich zu nem FTP-Server connecte dann brauch ich keinen Namen, nur nen Usernamen:

Delphi-Quellcode:
IDFTP1.Host := 'ftp.blabla.de';
IDFTP1.Username := 'Hans';
IDFTP1.Password := 'strenggeheim';
IDFTP1.Passive := true;
IDFTP1.Connect();
probier mal Username statt Name aus ;)

Coldice111 6. Nov 2005 12:48

Re: JPG auf FTP hochladen geht nicht
 
FTP ist idftp ;))

Danke Neutral damit geht es!!!
cu Coldice111

// hab mich verschrieben :D

Neutral General 6. Nov 2005 12:50

Re: JPG auf FTP hochladen geht nicht
 
hehe mich wunderts nur das du damit angeblich andere Dateien hochladen konntest :mrgreen:


Alle Zeitangaben in WEZ +1. Es ist jetzt 01:16 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz