Klasör adresi belirleme (Ağ ortamınıda tarama, I/O 123 Err)
Forum kuralları
Forum kurallarını okuyup, uyunuz!
Forum kurallarını okuyup, uyunuz!
Klasör adresi belirleme (Ağ ortamınıda tarama, I/O 123 Err)
Bir dosyayı farklı bir alana kaydedebilmesi için hedef yol belitmek için izleyebileceğim bir yol var mı? Dialogs paletindeki SaveAs bileşeni ile bunu yapabilirmiyim? SaveAs bileşenini kullanırken, yeni isim falan vermem gerekiyor. Benim istediğim tek şey, bileşen execute edildiğinde sadece hedef yol belirlensin sonra ok densin ve o hedef yolu alabileyim,
örneğin:
c:\hebele\muskut\
klasörü gibi.
iyi çalışmalar
örneğin:
c:\hebele\muskut\
klasörü gibi.
iyi çalışmalar
En son muskut tarafından 17 Eki 2006 03:51 tarihinde düzenlendi, toplamda 2 kere düzenlendi.
sizin aradığınız folder dialog.
gibi çağırabilirsiniz.
Kod: Tümünü seç
if SelectDirectory('Select a folder:', 'C:\', DirSelected) then
kodu kullandığım formda birtanede opendialog bileşeni var. Bu bileşeni ;
şeklinde çalıştırdıktan sonra, başka bir buton ile
kodunu çalıştırdığımda;
EInOutError with Message 'I/O error 123'
şeklinde bir hata mesajı alıyorum. Opendialog bileşenini hiç execute etmeden diğer selectdirectory işlemi sorunsuz çalışıyor. Herşey opendialogun execute olması ile oluyor. Varmı bir fikriniz?
Kod: Tümünü seç
if opndlgFrom.Execute then
begin
Nerden := opndlgFrom.FileName;
edtFrom.Text := Nerden;
end;
Kod: Tümünü seç
var
Dir: string;
begin
Dir := 'C:\';
SelectDirectory(Dir, [sdAllowCreate, sdPerformCreate, sdPrompt],SELDIRHELP);
EInOutError with Message 'I/O error 123'
şeklinde bir hata mesajı alıyorum. Opendialog bileşenini hiç execute etmeden diğer selectdirectory işlemi sorunsuz çalışıyor. Herşey opendialogun execute olması ile oluyor. Varmı bir fikriniz?
Tamamen ezber bir çözümdür. Referans ve kod yazıcam...
Ref : http://delphi.about.com/od/windowsshell ... 70400a.htm
Kod: Tümünü seç
function BrowseDialog
(const Title: string; const Flag: integer): string;
var // Uses ShlObj
lpItemID : PItemIDList;
BrowseInfo : TBrowseInfo;
DisplayName : array[0..MAX_PATH] of char;
TempPath : array[0..MAX_PATH] of char;
begin
Result := '';
FillChar(BrowseInfo, sizeof(TBrowseInfo), #0);
with BrowseInfo do begin
hwndOwner := Application.Handle;
pszDisplayName := @DisplayName;
lpszTitle := PChar(Title);
ulFlags := Flag;
end;
lpItemID := SHBrowseForFolder(BrowseInfo);
if lpItemId <> nil then begin
SHGetPathFromIDList(lpItemID, TempPath);
Result := TempPath;
GlobalFreePtr(lpItemID);
end;
end;
referanstaki link (http://delphi.about.com/od/windowsshell ... 70400a.htm) işimi fazlasıyla gördü, ilgilenen herkeze teşekkürler.