معلم دلفی

پنجشنبه، شهریور ۰۵، ۱۳۸۳

Unified Modeling Language Guide

برای اینکه بتوانید با ModelMaker کار کنید
آشنائی با مفاهیم UML ضروری است.
به همین دلیل سایتی را معرفی می کنم که به زبان انگلیسی به معرفی این مفاهیم و آموزش آنها با استفاده از مثالهای متنوع را دارد.
Unified Modeling Language Guide

شنبه، مرداد ۳۱، ۱۳۸۳

Delphi - UML - ModelMaker

UML یکی از استفاندارهای طراحینرم افزار است که مدتیست در ایران هم مورد توجه قرار گرفته است.
شرکت بورلند هم از دلفی هفت به بعد امکان طراحی نرم افزار با متودولوژی یو ام ال را فراهم کرده است.
این مهم با کمک یک برنامه جانبی به نام Model Maker امکانپذیر شده است.
برای آشنائی بیشتر با این برنامه و همچنین یادگیری استفاده از این برنامه می توانید به آدرس زیر مراجعه کنید.
ModelMaker Tutorials

در این سایت می توانید با بخشهای مختلف مدلساز آشنا شوید . بعنوان شروع می توانید برنامه های قبلی را که با دلفی نوشته اید را در این برنامه وارد کرده و با استافده از تکنیک مهندسی معکوس از یک برنامه آماده طرح یو ام ال و مستندات آنرا تولیبد کنید.

سه‌شنبه، مرداد ۲۰، ۱۳۸۳

یک سایت خوب در زمینه ترقندهای دلفی

در این وبلاگ می توانید با تعدادی از ترفندهای برنامه نویسی دلفی آشنا بشوید.

دوشنبه، مرداد ۱۹، ۱۳۸۳

Saving a website as html file

چگونه می توان محتوای یک سایت را بصورت HTM ذخیره کرد
شاید تا بحال با این مشکل برخورد کرده باششید که بخواهید محتوای یک سایت را با دادن آدرس آن در یک فایل ذخیره کنید. همانطور که می دانید در مرورگر اینترنت اینکار با انتخاب منوی فایل امکانپذیر است.
در زبان دلفی با استفاده از کامپوننت زیر می توانید یک آدرس را داده و محتوای آن صفحه را ببینید.
TWebBrowser
اما برای اینکه بتوانید محتوای خوانده شده را ذخیره کنید باید برنامه آنرا بصورت زیر بنویسید:


uses ActiveX;
...
procedure WB_SaveAs_HTML(WB:TWebBrowser; const FileName : string);
var
PersistStream: IPersistStreamInit;
Stream: IStream;
FileStream: TFileStream;
begin
if not Assigned(WB.Document) then
begin
ShowMessage('Document not loaded!');
Exit;
end;
PersistStream := WB.Document as IPersistStreamInit;
FileStream := TFileStream.Create(FileName, fmCreate);
try
Stream := TStreamAdapter.Create(FileStream, soReference) as IStream;
if Failed(PersistStream.Save(Stream, True)) then
ShowMessage('SaveAs HTML fail!');
finally
FileStream.Free;
end;
end; (* WB_SaveAs_HTML *)