كيف تنسخ صورة الى ملف الصور الحاص بالبرنامج

[عبد الهادي بهاب]

السلام عليكم
عيدكم مبارك ............ هل فيه كود لنسخ صورة من الحاسوب الى ملف الصور الحاص بالبرنامج
في المثال الموالي ........ عند الضغط على الصورة .....تستدعي صورة و تم تنسخها الى ملف يحمل اسم 12 موجود غي المستندات ....... كل شيء تمام .........المشكل كيف ننسخ الصورة الى ملف الصور الخاص بالبرنامج
AutoPlay\\Images

وكيف نغير اسمها الى نص الانبوت الموجود اعلى المثال .......... ؟؟

ملف مفتوح

في المرفقات (http://www.abc4web.net/vb/attachment.php?attachmentid=3053&stc=1&d=1443221437)

[abohmam]

وعليكم السلام ورحمة الله وبركاته

عيدك مبارك أخى المحترف

أنا دخلت فقط أعيد عليك فتقبل الله منا ومنك

ان شاء الله سيتم تحميل الملف والإطلاع

[عبد الهادي بهاب]

وعليكم السلام ورحمة الله وبركاته

عيدك مبارك أخى المحترف

أنا دخلت فقط أعيد عليك فتقبل الله منا ومنك

ان شاء الله سيتم تحميل الملف والإطلاع

اسعد الله يومكم و اعاد الله عليكم هذا العيد اعواما عديدة و تقبل منا و منكم العبادة و القربات

[ثامر أبو بلقيس]

يوجد كود عند الضغط على عنصر
Image1
استبدله بـــ:
mo = Input.GetText("Input1");
myfolder = Shell.GetFolder(SHF_MYDOCUMENTS);
sExtension = "All Images Files (*.jpg;*.png;*.bmp;*.psd;*.gif)|*.jpg;*.png;*.bmp; *.psd;*.gif|All Files (*.*)|*.*|";
tImagesFiles = Dialog.FileBrowse(true, "", myfolder, sExtension, "", "", false, true);
if tImagesFiles[1] ~= "CANCEL" then
destination = _SourceFolder.."\\AutoPlay\\Images\\"
result = DLL.CallFunction("AutoPlay\\Docs\\FldrActn.dll", "CopyFolder", "\"" .. tImagesFiles[1].. "\"" .. ",\"" .. destination .. "\",1,1", DLL_RETURN_TYPE_STRING, DLL_CALL_STDCALL)
Image.Load("Image1", tImagesFiles[1])
DestFolder = Shell.GetFolder(SHF_MYDOCUMENTS);
Folder.Create(DestFolder.."\\12");
File.Copy(""..tImagesFiles[1].."", DestFolder.."\\12\\", true, true, false, true, nil);
Application.Sleep(1000);
File.Rename(DestFolder.."\\12\\"..tImagesFiles[1].."."..sExtension.."", DestFolder.."\\12\\"..mo.."."..sExtension.."");
end
ملاحظة : لن يعطي الكود نتائج لأنه ينقصك ملف dll
وهو FldrActn.dll يتم زراعته في في مجلد
Docs
للأسف لا أملك صلاحية رفع مرفقات على هذا الموقع و مركز الخليج معطل لرفعه لك
موفق:abc_138:

[ربيع]

موفق بإذن الله ... لك مني أجمل تحية .

الملف

[عبد الهادي بهاب]

يوجد كود عند الضغط على عنصر
image1
استبدله بـــ:
mo = input.gettext("input1");
myfolder = shell.getfolder(shf_mydocuments);
sextension = "all images files (*.jpg;*.png;*.bmp;*.psd;*.gif)|*.jpg;*.png;*.bmp; *.psd;*.gif|all files (*.*)|*.*|";
timagesfiles = dialog.filebrowse(true, "", myfolder, sextension, "", "", false, true);
if timagesfiles[1] ~= "cancel" then
destination = _sourcefolder.."\\autoplay\\images\\"
result = dll.callfunction("autoplay\\docs\\fldractn.dll", "copyfolder", "\"" .. Timagesfiles[1].. "\"" .. ",\"" .. Destination .. "\",1,1", dll_return_type_string, dll_call_stdcall)
image.load("image1", timagesfiles[1])
destfolder = shell.getfolder(shf_mydocuments);
folder.create(destfolder.."\\12");
file.copy(""..timagesfiles[1].."", destfolder.."\\12\\", true, true, false, true, nil);
application.sleep(1000);
file.rename(destfolder.."\\12\\"..timagesfiles[1].."."..sextension.."", destfolder.."\\12\\"..mo.."."..sextension.."");
endملاحظة : لن يعطي الكود نتائج لأنه ينقصك ملف dll
وهو fldractn.dll يتم زراعته في في مجلد
docs
للأسف لا أملك صلاحية رفع مرفقات على هذا الموقع و مركز الخليج معطل لرفعه لك
موفق:abc_138:


السلام عليكم ............ انتظرت الرد طويلا ....... ربي ينوركم استاذ ...... شكرا جزيلا

موفق بإذن الله ... لك مني أجمل تحية .


الملف

كعادتك حاضر بالرد القوي و السريع و الفعال .......ربي يحفظكم و يسعدكم

[عبد الهادي بهاب]

كل شيء تمام

ربي ينوركم

لكن جزئية تغيير الاسم لم تنجح ..........؟؟؟؟؟؟؟؟

[ثامر أبو بلقيس]

لكن جزئية تغيير الاسم لم تنجح ..........؟؟؟؟؟؟؟؟

لان الكود السابق اهتم بالجزئية الأهم
جرب هذا التعديل
mo = Input.GetText("Input1");
sExtension = "All Images Files (*.jpg;*.png;*.bmp;*.psd;*.gif)|*.jpg;*.png;*.bmp; *.psd;*.gif|All Files (*.*)|*.*|";
tImagesFiles = Dialog.FileBrowse(true, "", Shell.GetFolder(SHF_MYDOCUMENTS), sExtension, "", "", false, true);
if tImagesFiles[1] ~= "CANCEL" then
path_parts = String.SplitPath(tImagesFiles[1]);
y = File.Find(_SourceFolder.."\\AutoPlay\\Images\\", mo..".*", false, false, nil, nil);
if y== nil then
destination = _SourceFolder.."\\AutoPlay\\Images\\"
result = DLL.CallFunction("AutoPlay\\Docs\\FldrActn.dll", "CopyFolder", "\"" .. tImagesFiles[1].. "\"" .. ",\"" .. destination .. "\",1,1", DLL_RETURN_TYPE_STRING, DLL_CALL_STDCALL)
File.Rename(_SourceFolder.."\\AutoPlay\\Images\\".. path_parts.Filename..path_parts.Extension, _SourceFolder.."\\AutoPlay\\Images\\".. mo..path_parts.Extension);
Image.Load("Image1", _SourceFolder.."\\AutoPlay\\Images\\".. mo..path_parts.Extension)
Folder.Create(Shell.GetFolder(SHF_MYDOCUMENTS).."\\12");
File.Copy(_SourceFolder.."\\AutoPlay\\Images\\".. mo..path_parts.Extension, Shell.GetFolder(SHF_MYDOCUMENTS).."\\12\\", true, true, false, true, nil);
else
Dialog.TimedMessage("Please Wait...", "اسم الصورة موجود سابقا", 2000, MB_ICONINFORMATION);
end
end

موفق :abc_138:

[عبد الهادي بهاب]

لان الكود السابق اهتم بالجزئية الأهم
جرب هذا التعديل
mo = Input.GetText("Input1");
sExtension = "All Images Files (*.jpg;*.png;*.bmp;*.psd;*.gif)|*.jpg;*.png;*.bmp; *.psd;*.gif|All Files (*.*)|*.*|";
tImagesFiles = Dialog.FileBrowse(true, "", Shell.GetFolder(SHF_MYDOCUMENTS), sExtension, "", "", false, true);
if tImagesFiles[1] ~= "CANCEL" then
path_parts = String.SplitPath(tImagesFiles[1]);
y = File.Find(_SourceFolder.."\\AutoPlay\\Images\\", mo..".*", false, false, nil, nil);
if y== nil then
destination = _SourceFolder.."\\AutoPlay\\Images\\"
result = DLL.CallFunction("AutoPlay\\Docs\\FldrActn.dll", "CopyFolder", "\"" .. tImagesFiles[1].. "\"" .. ",\"" .. destination .. "\",1,1", DLL_RETURN_TYPE_STRING, DLL_CALL_STDCALL)
File.Rename(_SourceFolder.."\\AutoPlay\\Images\\".. path_parts.Filename..path_parts.Extension, _SourceFolder.."\\AutoPlay\\Images\\".. mo..path_parts.Extension);
Image.Load("Image1", _SourceFolder.."\\AutoPlay\\Images\\".. mo..path_parts.Extension)
Folder.Create(Shell.GetFolder(SHF_MYDOCUMENTS).."\\12");
File.Copy(_SourceFolder.."\\AutoPlay\\Images\\".. mo..path_parts.Extension, Shell.GetFolder(SHF_MYDOCUMENTS).."\\12\\", true, true, false, true, nil);
else
Dialog.TimedMessage("Please Wait...", "اسم الصورة موجود سابقا", 2000, MB_ICONINFORMATION);
end
endموفق :abc_138:

:abc_050::abc_050::abc_050:

ربي يفرج عليك استاذ فرجا عاجلا غير اجل ............حاولت لاكثر من اسبوع ولم انجح الا في تغييره خارج البرنامج .........و كان الانسان جهولا .......و نحن نطلب المساعدة ......فاسالوا اهل الذكر ان كنتم لا تعلمون ............. فنحن في مسار العلم و السؤال .........و انتم ان شاء الله ...........هل يستوي الذين يعلمون و الذين لا يعلمون ...........فرجاؤنا ان تكونونا من اهل الفضل في الجنة و اي فضل ........طبعا مع خلود و بلقيس و الاهل ..........تحياتي و السلام :abc_152::abc_152::abc_152:

[ثامر أبو بلقيس]

بارك الله فيك أخي على الدعاء برجاء خص بلقيس بالدعاء فهي مقبلة على اجراء عملية جراحية دقيقة
خلال هذا الشهر شكرا :abc_138: و أضف لقائمة بناتي نجيبة و هداية شكرا :abc_138:

[عبد الهادي بهاب]

بارك الله فيك أخي على الدعاء برجاء خص بلقيس بالدعاء فهي مقبلة على اجراء عملية جراحية دقيقة
خلال هذا الشهر شكرا :abc_138: و أضف لقائمة بناتي نجيبة و هداية شكرا :abc_138:

تضامني الكبير ...... ربي يشفيها ........ و يكون ما تقدمه من اسباب النجاح حتى قبل العملية و حديث الصخرة و الثلاثة الذين علقوا في الغار تاصيل لما اقول فادعو بما تقدمه معنا و تنضح به و لا سينا في مشاريع التربية و القران ........ دعائنا معكم بالسحر....لا تنسى الحلوى للصغار فالصدقة ترفع البلاء

[عبدوعزيز]

مشكوووووووووووووور

[محمد سامر]

موفق بإذن الله ... لك مني أجمل تحية . :abc_088:

[ياسرهتهت]

شـكــ وبارك الله فيك ـــرا لك ... لك مني أجمل تحية .

[محمد سامر]

مررت من هنا ...فا ستفدت الكثير ....لثاني مرة مرور
جزاكم الله خيرا

[فرح صالحي]

بارك الله فيك أخي على الدعاء برجاء خص بلقيس بالدعاء فهي مقبلة على اجراء عملية جراحية دقيقة
خلال هذا الشهر شكرا :abc_138: و أضف لقائمة بناتي نجيبة و هداية شكرا :abc_138:

اللهم إنا نسألك بأسمائك الحسنى وبصفاتك العلا وبرحمتك التي وسعت كلّ شيء أن تمنّ على بلقيس بالشفاء العاجل، وألّا تدع فيها جرحاً إلّا داويته ولا ألماً إلا سكنته ولا مرضاً إلا شفيته، وألبسها ثوب الصحة والعافية عاجلاً غير آجلاً وشافِها وعافِها واعف عنها، واشملها بعطفك ومغفرتك وتولها برحمتك يا أرحم الراحمين.

[ثامر أبو بلقيس]

اللهم إنا نسألك بأسمائك الحسنى وبصفاتك العلا وبرحمتك التي وسعت كلّ شيء أن تمنّ على بلقيس بالشفاء العاجل، وألّا تدع فيها جرحاً إلّا داويته ولا ألماً إلا سكنته ولا مرضاً إلا شفيته، وألبسها ثوب الصحة والعافية عاجلاً غير آجلاً وشافِها وعافِها واعف عنها، واشملها بعطفك ومغفرتك وتولها برحمتك يا أرحم الراحمين.

بارك الله فيك أخي فرح وجزاك الله خيرا فعلا بلقيس أجرت العملية الجراحية و إلتأمت الجراح
والحمد لله كانت ناجحة وهذا منذ مدة صحيح هي ضيعت الامتحانات ودراستها هذا العام
لكن الصحة أولى بارك الله فيك وفي كل الرجال من داخل الموقع الذين سألوا طيلة السنة و ساعدوني كثيرا بالدعاء
بارك الله فيكم جميعا ونسأل عنكم إن شاء الله في الأفراح شكرا جزيلا :abc_138:

[فرح صالحي]

بارك الله فيك أخي فرح وجزاك الله خيرا فعلا بلقيس أجرت العملية الجراحية و إلتأمت الجراح
والحمد لله كانت ناجحة وهذا منذ مدة صحيح هي ضيعت الامتحانات ودراستها هذا العام
لكن الصحة أولى بارك الله فيك وفي كل الرجال من داخل الموقع الذين سألوا طيلة السنة و ساعدوني كثيرا بالدعاء
بارك الله فيكم جميعا ونسأل عنكم إن شاء الله في الأفراح شكرا جزيلا :abc_138:

الحمدلله أولا وأخيرا
المعذرة اخي لم اتفطن للموضوع الا البارحة

[مارجوم،]

tnks m8 : abc_051:

[السعيد الجزائري]

موفق بإذن الله ... لك مني أجمل تحية . :abc_152::abc_152::abc_152:

[Mahmoud Nabil]

موفق بإذن الله ... لك مني أجمل تحية .

[الحسنية]

بارك الله فيك أخي

[محمد رمضان أبو يوسف]

شـكــ وبارك الله فيك ـــرا لك ... لك مني أجمل تحية .

[عفيف مصطفى]

مشكوووووووووووووووووووور على التقاسم

[الدموكي]

موفق بإذن الله ... لك مني أجمل تحية .