VarScan: TScan;StopUp: Boolean;typeTScan = class(TThread)privateIdHTTP1: TIdHTTP;IsUpload: Boolean;procedure HttpWork(ASender: TObject; AWorkMode: TWorkMode;AWorkCount: Int64);protectedprocedure Execute; override;end;procedure TScan.HttpWork(ASender: TObject; AWorkMode: TWorkMode;AWorkCount: Int64);beginif StopUp thenIdHTTP1.Disconnect;end;procedure TScan.Execute;beginIdHTTP1 := TIdHTTP.Create(nil);IdHTTP1.HTTPOptions := [hoKeepOrigProtocol];IdHTTP1.OnWork := HttpWork;trycode := IdHTTP1.Post('Address', 'DataStream'); //UploadexceptIdHTTP1.Free;end;IdHTTP1.Free;end;procedure Form1.StartClick(Sender: TObject);beginStopUp := False;Scan := TScan.Create(False);Scan.FreeOnTerminate := True;end;procedure Form1.StopClick(Sender: TObject);beginStopUp := true;end;, ...ادامه مطلب
سلام دوستان.یه اشکالی در رفرش کردن صفحه برام پیش اومده. صفحه ای از سایتی که با ASP نوشتم، کار آپلود فایل رو انجام میده. اما مشکلی هست که وقتی فایلی رو آپلود میکنم، صفحه یه بار کامل به سمت سرور فرستاده میشه و بعد خب فایل آپلود میشه و دوباره همون صفحه برام نمایش داده میشه. اما تکست باکس هایی که موقع آپلود فایل پر کرده بودم، توی صفحه برگشت داده شده، دیگه خالی نمیشن. همچنین وقتی همین صفحه ی برگشت داده,اشکال,انجام,دوباره,قبلی,رفرش,کردن,صفحه ...ادامه مطلب
سلام متاسفانه بدلیل این ویروس جدید دوباره ویندوز و اس کیو ال را نصب کردم ولی الان که می خواهم بک آپ خود را برگردانم، این کار انجام نمیشود. نام سرور تغییر کرده است آیا این دلیل این مشکل است؟ تشکر, ...ادامه مطلب
سلام دوستان خسته نباشیدیک سوالی داشتممن یک برنامه نوشتم که صفحه ورود داره ، و با وب ویو نشون دادمکاربر هر بار که بخواد بیاد وارد برنامه بشه باید از صفحه ورود بگذرهالان من میخوام یک کاری کنم که فقط یک بار صفحه ورود رو نمایش بده و همش به قسمت کاربری انتقال پیدا کنهممنون میشم مشکلم رو حل کنید Let's block ads! بخوانید, ...ادامه مطلب
دوستان سلام.من در کدم تو رویداد BeforeUpdate کنترل کردم که اگر چنانچه کاربر مقدار یک فیلد خاص رو وارد نکرده بود ذخیره نشه و پیغام بده.این هم کدم Private Sub Form_BeforeUpdate(Cancel As Integer)Dim flag As Booleanflag = falseIf (IsNull(idNoeTazmin)) ThenMsgBox "A"flag = FalseEnd IfIf (IsNull(idEllateTazmin)) ThenMsgBox "B", vbCriticalflag = TrueEnd IfIf (IsNull(Shomare)) ThenMsgBox "C", vbCriticalflag = TrueEnd IfIf (IsNull(Mablagh)) ThenMsgBox "D", vbCriticalflag = TrueEnd IfCancel = flagEnd Sub حالا مشکلی که دارم اینه که وقتی کاربر دکمه سیو رو فرم رو میزنه و این کد اجرا میشه یکی از مسیج ها نشون داده میشه بعد پیغام "No Current Record" میاد و بعد دوباره میاد تو همین رویداد و کاربر دوباره پیغامی که من نوشتم رو می بینه. یعنی کلا دوبار پیغام تکراری و یه بار هم اون پیغام انگلیسی رو نشون میده.من تست کردم دیدم اگه مسیج رو کامنت کنم مشکلی پیش نمیاد و متد یه بار اجرا میشه. ولی اگه به خط مسیج برسه دوبار اجرا می کنه. علت چیه و راه حل چیضمنا من نمیخوام از تو جدول فیلد Required رو بذارم میخوام از فرم کنترلش کنم. ممنونThis entry passed through the Full-Text RSS service - if this is your content and you're reading it on someone else's site, please read the FAQ at fivefilters.org/content-only/faq.php#publishers., ...ادامه مطلب
با سلام یه برنامه دارم که یک سری اطلاعات رو از یک فایل ایکس ام ال روی سایت میگیره من الان این فایلو حذف کردم برنامه رو باز میکنم باز مقادیرو لود میکنه مشکل از کجاست چرا اینجوریه ؟؟ This entry passed through the Full-Text RSS service - if this is your content and you're reading it on someone else's site, please read the FAQ at fivefilters.org/content-only/faq.php#publishers., ...ادامه مطلب