PDA

View Full Version : Save as Webpage در دلفي


SReza1
چهارشنبه 06 اسفند 1382, 21:12 عصر
سلام
در ms-word دیدید که میشه فایلهای doc رو به فرمت html ذخیره کرد. چطور میشه این فراخوانی رو از طریق دلفی انجام داد؟؟؟؟ چون تعداد فایلهای خیلی خیلی زیاده! :cry:
JavanSoft
پنج شنبه 07 اسفند 1382, 12:56 عصر
اگر نگاهی کوچک به ساختار فایهای HTMLبیندازید میبینید که با چند دقیقه وقت گذاشتن خودتان می توانید انها را تولید کنید
اگر خواستید بفرمایید تا نمونه ای را برایتان بگذارم
Delphi-Clinic
پنج شنبه 07 اسفند 1382, 22:00 عصر
سلام


worddocument1.SaveAs2000(parameters);
SReza1
شنبه 09 اسفند 1382, 20:20 عصر
آقای وکیلی
من یک نکاه چند دقیقه ای بیشتر انداختم. ساختار فایلهای HTML را هم میدونم . متوجه نشدم. شما اگه میدونید راهنمایی کنید.
احمد جان ممنون از راهنمائیت تستش میکنم ببینم چطوره.
ممنون
JavanSoft
شنبه 09 اسفند 1382, 20:30 عصر
Var
F : TextFile;
I,J : Integer;
begin
If SaveDialog3.Execute Then
SaveDialog3.FileName:=SaveDialog3.FileName+'.Html'
Else
Exit;
AssignFile(F,SaveDialog3.FileName);
Rewrite(F);
Writeln(F,'<html dir="rtl">');
Writeln(F,'<head>');
Writeln(F,'<meta http-equiv="Content-Language" content="en-us">');
Writeln(F,'<meta name="GENERATOR" content="Microsoft FrontPage 5.0">');
Writeln(F,'<meta name="ProgId" content="FrontPage.Editor.Document">');
Writeln(F,'<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">');
Writeln(F,'<title>Javan Report Builder</title>');
Writeln(F,'</head>');
Writeln(F,'<body>');
Writeln(F,'<p align="center"><b><font face="Tahoma">',TTl,'</font></b></p>');
Writeln(F,'<table border="1" cellspacing="1">');
Writeln(F,' <tr>');
For I:=0 To QueryGrid.Columns.Count-1 Do
Writeln(F,' <td bgcolor="#99CCFF"><span lang="Ar">',QueryGrid.Columns[I].Title.Caption,'</span></td>');
Writeln(F,' </tr>');

QSelect.First;
While Not QSelect.Eof Do
Begin
Writeln(F,' <tr>');
For J:=0 To QSelect.FieldCount-1 Do
Writeln(F,' <td><span lang="Ar">',QSelect.Fields[J].AsString,'</span></td>');
Writeln(F,' </tr>');
QSelect.Next;
End;
Writeln(F,'</table>');
Writeln(F,'</body>');
Writeln(F,'</html>');
Writeln(F,'<p> <b>',FootTitel,'</b></p>');
CloseFile(F);
end;
SReza1
شنبه 09 اسفند 1382, 20:45 عصر
TTl و QueryGrid از جنسه چیه؟ و البته یه کم توضیح لطفا؟من نمیدونم شاید خوب منظورمو توضیح ندادم.
من میخواهم فایلهای Doc رو با فرمت Html ذخیره کنم!
said ali
یک شنبه 10 اسفند 1382, 16:24 عصر
با سلام
همونطور که گفتن بیشتر توضیح بدید.
با تشکر.
JavanSoft
دوشنبه 11 اسفند 1382, 00:44 صبح
TTLیک رشته است که به عنوان تیتر قرار می گیرد
QueryGrid هم یک DBGrid است که نتیجه یک Query را نشان می دهد و بجای آن هر نوع DBGridریگر هم می تواند قرار گیرد
SReza1
دوشنبه 11 اسفند 1382, 00:54 صبح
خوب نقش این query اینجا چیه؟من که نفهمیدم. در ضمن فایل doc که قرار است به فرمت html ساخته بشه کجا خوانده میشه؟
JavanSoft
دوشنبه 11 اسفند 1382, 01:07 صبح
If SaveDialog3.Execute Then
SaveDialog3.FileName:=SaveDialog3.FileName+'.Html'
Else
Exit;
فایل خروجی را مشخص می کند

AssignFile(F,SaveDialog3.FileName);
Rewrite(F);
Writeln(F,'<html dir="rtl">');
Writeln(F,'<head>');
Writeln(F,'<meta http-equiv="Content-Language" content="en-us">');
Writeln(F,'<meta name="GENERATOR" content="Microsoft FrontPage 5.0">');
Writeln(F,'<meta name="ProgId" content="FrontPage.Editor.Document">');
Writeln(F,'<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">');
Writeln(F,'<title>Javan Report Builder</title>');
Writeln(F,'</head>');
Writeln(F,'<body>');
Writeln(F,'<p align="center"><font face="Tahoma">',TTl,'</font></p>');
Writeln(F,'<table border="1" cellspacing="1">');
Writeln(F,' <tr>');
For I:=0 To QueryGrid.Columns.Count-1 Do
Writeln(F,' <td bgcolor="#99CCFF"><span lang="Ar">',QueryGrid.Columns[I].Title.Caption,'</span></td>');
Writeln(F,' </tr>');
باز کردن فایل HTML و نوشتن Headerها در آن


QSelect.First;
While Not QSelect.Eof Do
Begin
Writeln(F,' <tr>');
For J:=0 To QSelect.FieldCount-1 Do
Writeln(F,' <td><span lang="Ar">',QSelect.Fields[J].AsString,'</span></td>');
Writeln(F,' </tr>');
QSelect.Next;
End;
بازکردن فایل (Table یا Query ) و از اول تا آخر آن تمامی فیلدها را در فایل خروجی می نویسد
و بقیه برنامه هم بستن Tagها می باشد
اگر دوستان در مورد خط خاصی سوال دارند بفرمایند تا جواب دهم
JavanSoft
دوشنبه 11 اسفند 1382, 01:10 صبح
جالب بود ..Tagهای برنامه در صفحه جواب تاثیر گذاشت :lol:
SReza1
دوشنبه 11 اسفند 1382, 01:15 صبح
فایل doc کجا خونده میشه؟
JavanSoft
دوشنبه 11 اسفند 1382, 09:43 صبح
همانگونه که خدمتتان عرض کردم بنده در مورد فرمت فایلهای Docچیزی نمیدانم اما می خواستم به شما نشان دهم که چگونه می توان با کمک Tagهای Html فایل مذکور را ساخت
SReza1
دوشنبه 11 اسفند 1382, 15:21 عصر
:? :( :? :( :( :shock: