Dosyaya sağ tıklayıp gönder diyince ftpye göndermede sorun

[Ancestor]

S.a.

ImageShack bi aralar yapmıştı. Yüklemek istenilen resme sağ tıklanıp gönder dediğimizde resim imageshack serverlarına yükleniyodu. Bunun gibi bir uygulama da kendi sistemime koymak istedim. Her şeyi bitti ama bir yerde kaldım.

Sağ tık ile dosyayı gönder olayını aşağıdaki gibi yaptım:

Kod: Tümünü seç

procedure TForm1.FormCreate(Sender: TObject);
var 
 REG:TREGISTRY; 
begin 
 REG := TRegistry.Create; 
 TRY 
 REG.RootKey := HKEY_CLASSES_ROOT; 
 if Reg.OpenKey('\giffile\shell\ResimKalesi.com''a yükle\Command', True) then
 begin 
   Reg.WriteString('','"'+ Application.ExeName +'"' + ' %1'); 
   Reg.CloseKey; 
    end;
  finally 
    Reg.Free; 
    inherited; 
  end; 
end;

Ftp bağlantıları, dosya göndermesini falan hallettim. Ancak sağ tıklayıp gönderdiğimiz zaman eğer dosya yolunda boşluk varsa algılamıyor.
Mesela dosyayı direk c:'den yada d:'den seçtiğimde sorun yok.
Ama resim masa üstünde ise c:\document yazıp kalıyor.

Sağ tıklanıp gönder dediğinde resmin yolunu aldırmayı ise şu kod ile yaptım:

Kod: Tümünü seç

 dosyayolu := ParamSTR(1);

Sizce nasıl yaparsam dosya yolundaki boşlukları algılar?

Birde, klasör veya dosyanın var olup olmadığını nasıl kontrol ettirebiliriz?

[fatihtolgaata]

%1 olan yeri "%1" olarak değiştirir misiniz. (Çift tırnaklar başta ve sonda..)

[Ancestor]

Evet, teşekkürler. tırnakları koyunca oldu.
Şimdi ftp ile dosya kontrolünü nasıl yaptırabilirim bi o kaldı.

[fatihtolgaata]

Indy'de "Size"'ını almaya çalışırsın. Eğer hata gelirse(5xx gibi bir şeydi) dosya yoktur. Hata yoksa dosya var demektir.