نوشتن کد html در دلفی

[delphi_programmer_2010]

سلام.من یک کد html در دلفی نوشتم بنظرتون چرا کار نمیکنه؟


procedure TFrmStd.BitBtn2Click(Sender: TObject);
begin
body := body +
'<tr>'+
'<td width="4%"><div align="center" class="style5">'+FieldByName('se1').AsString+'</div></td> '+
'<td width="4%"><div align="center" class="style5">'+FieldByName('se2').AsString+'</div></td> '+
'<td width="10%"><div align="center" class="style5">'+FieldByName('programming').AsString+'</div></td>'+
'<td width="10%"><div align="center" class="style5">'+FieldByName('micro').AsString+'</div></td> '+
'<td width="7%"><div align="center" class="style5">'+FieldByName('avrg').AsString+'</div></td> '+
'</tr>' ;
end;

[hossein_h62]

سلام
از کدی که نوشتید انتظار چه کاری رو دارین ؟؟!!!!
شما فقط یه سری کد html رو ریختین توی یه متغیر، معلوم کار نمیکنه!

[Felony]

!!!

اگر میخواین به عنوان یک صفحه وب اجرا بشه باید اون مقادیر رو داخل یک فایل متنی بنویسید و فرمتش رو هم HTML در نظر بگیرید و بعد به وسیله ShellExecute تو IE یا ... بارگزاریش کنی ؛ میتونی از شئ Web Browser خود دلفی هم برای بارگزاری استفاده کنی .

[Mahmood_M]

شما باید از یک برنامه ی سرور که بتونه کدهای HTML رو ترجمه کنه استفاده کنید ! ، یک TWebBrowser روی فرم بزارید و کدتون رو در اون نمایش بدید ، یک نمونه اینجا (http://www.barnamenevis.org/forum/showthread.php?t=205065) هست ( پست آخر )

موفق باشید ...

[delphi_programmer_2010]

!!!

اگر میخواین به عنوان یک صفحه وب اجرا بشه باید اون مقادیر رو داخل یک فایل متنی بنویسید و فرمتش رو هم HTML در نظر بگیرید و بعد به وسیله ShellExecute تو IE یا ... بارگزاریش کنی ؛ میتونی از شئ Web Browser خود دلفی هم برای بارگزاری استفاده کنی .
درسته منم توی help دلفی همین رو خوندم

[delphi_programmer_2010]

واقعا از کمکتون ممنونم ولی اگر صورت مسیله رو بهتر توضیح بدم بهتره
من چند تا متغیر دارم به اسم

se1,se2,programming,micro

که اسم درس هستند.میخوام در دلفی کد بنویسم که یک فایل html درست کنه و در آن مقدار این متغیر ها(نمرات دروس) رو نمایش بده

اگر ممکن هست کمک بدید

ممنون ن ن

[Felony]

واقعا از کمکتون ممنونم ولی اگر صورت مسیله رو بهتر توضیح بدم بهتره
من چند تا متغیر دارم به اسم

se1,se2,programming,micro

که اسم درس هستند.میخوام در دلفی کد بنویسم که یک فایل html درست کنه و در آن مقدار این متغیر ها(نمرات دروس) رو نمایش بده

اگر ممکن هست کمک بدید

ممنون ن ن

توضیحات که داده شد ، نمونه کد هم که معرفی شد !!!

تابع زیر رو به پروژتون اضافه کنید :

procedure WBLoadHTML(WebBrowser: TWebBrowser; HTMLCode: string) ;
var
sl: TStringList;
ms: TMemoryStream;
begin
WebBrowser.Navigate('about:blank') ;
while WebBrowser.ReadyState < READYSTATE_INTERACTIVE do
Application.ProcessMessages;
if Assigned(WebBrowser.Document) then
begin
sl := TStringList.Create;
try
ms := TMemoryStream.Create;
try
sl.Text := HTMLCode;
sl.SaveToStream(ms) ;
ms.Seek(0, 0) ;
(WebBrowser.Document as IPersistStreamInit).Load(TStreamAdapter.Create(ms) ) ;
finally
ms.Free;
end;
finally
sl.Free;
end;
end;
end;

و داخل یه دکمه کد زیر رو بنویسید :

var
body, a, b, c, d, e : String;
begin
a:= 'www.google.com';
b:= 'www.yahoo.com';
c:= 'www.bing.com';
d:= 'www.barnamenevis.org';
e:= 'www.test.ir';

body := '<tr>'+
'<td width="4%"><div align="center" class="style5">'+ a +'</div></td> '+
'<td width="4%"><div align="center" class="style5">'+ b +'</div></td> '+
'<td width="10%"><div align="center" class="style5">'+ c +'</div></td>'+
'<td width="10%"><div align="center" class="style5">'+ d +'</div></td> '+
'<td width="7%"><div align="center" class="style5">'+ e +'</div></td> '+
'</tr>' ;
WBLoadHTML(WebBrowser1, body);
end;

کتابخانه ActiveX رو هم به Uses پروژتون اضافه کنید .