table'daki kayıtları html uzantılı kaydetme

mrtyes · Mesaj gönderen **mrtyes** » 22 Haz 2004 03:50

değerli grup üyeleri veritabanında kayıtlı olan bilgileri html uzantılı yaparak web sayfası olarak yayınlamak istiyorum bana yardımcı olabilirmisiniz?
forumda buna benzer şeylere rastladım ama işimi görmedi
saygılarımla

Mesaj gönderen **abdulkadir** » 22 Haz 2004 05:44

selam kendi yaptıgım bir işlem var kodların bir kısmını buraya yazıyorum
cok fazla karısık oldugu için hepsini yazmıyorum
sana fikir verecek umarım

Kod: Tümünü seç

type
  AklHtml = class(TStringList)
  private
    { private declarations }
Function KayitBul(Bulno:integer):integer;
  public
    { Public declarations }
    procedure HtmlBaslik;
    procedure HtmlSon;
    procedure HtmlAnaTablo;
    procedure DataDinamikKategori(Data: TDataSet);
    procedure DataDinamikicerik(Data: TDataSet);
  end;


procedure AklHtml.HtmlBaslik;
begin
Add('<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">');
Add('<HTML><HEAD><TITLE>Akl Web Pro</TITLE>');
Add('<META http-equiv=Content-Type content="text/html; charset=windows-1254">');
Add('<META content="Delphi"name=description>');
Add('<META content="Delphi"name=keywords>');
Add('<META  content="Delphi">');
Add('<META content=bestasansor.com name=author>');
Add('<LINK href="Akl_dosyalar/Akl.css" type=text/css rel=StyleSheet>');
Add('</HEAD>');
Add('<BODY text=#000000 bottomMargin=0 vLink=#800080 aLink=#ff0000 link=#374e84');
Add('bgColor=#ffffff leftMargin=0 background=Akl_dosyalar/bg_Ana.gif topMargin=0');
Add('rightMargin=0 marginheight="0" marginwidth="0">');
Add('');
end;


procedure AklHtml.HtmlAnaTablo;
begin
Add('');
Add('<br>');
Add('');

procedure AklHtml.HtmlSon;
begin
Add('<TABLE height=50 cellSpacing=0 cellPadding=0 width=774 align=center summary=""border=0>');
Add('<TR><TD vAlign=center align=middle  background=Akl_dosyalar/bg_alt.gif>');
Add('<div align="center"><SMALL>Tasarım W.Master');
Add('<A href="http://www.bestasansor.com">Abdulkadir levent</A> - ©2003 BEST<BR></SMALL>');
Add('</div></TD></TR></TABLE><BR><BR>');
Add('</BODY></HTML>');
end;


procedure AklHtml.HtmlKategoriListele(Data: TDataSet);
 var
 ad,bolumid:string;
  Str:AklHtml;
  begin
Data.Close;
Data.Open;
Add('<table width="160"  border="0" align="center" cellpadding="0" cellspacing="0" valign="top"><TBODY>');
  while not (Data.Eof) do
     begin
ad:=Data.FieldByName('Bolumadi').AsString;
bolumid:=Data.FieldByName('bolumid').AsString;
Add('<tr><td height="16" ');
Add('<img src="Akl_dosyalar/Ok.gif" align="left" border="0" width="16" height="16">');
Add('<a CLASS="sidecontent" href="Kategori='+bolumid+'">'+Data.FieldByName('Bolumadi').AsString+'</a>');
   begin
   Str :=AklHtml.Create;
    try
      begin
Add('&nbsp;&nbsp;[<font face="Verdana" Font color="#CC0000">'
+IntToStr(str.KayitBul(StrToInt(bolumid)))+'</Font>]</td></tr>');
Add('<TR><TD height=1><IMG height=1  src="Akl_dosyalar/Satir.gif" width=185 align=middle border=0></TD></TR>');
Data.Next;
end;
 Finally
 Str.Free;
   end;
    end;
      end;
Data.Close;
end;

function AklHtml.KayitBul(Bulno: integer): integer;
var
 Sorgu:TQuery;
begin
 Sorgu:=TQuery.Create(nil);
  try
   with Sorgu do  begin
SQL.Add('SELECT YT.Bolumid,YT.Ad');
SQL.Add('FROM  AklDb\YT.DB YT ');
SQL.Add('WHERE (YT.Bolumid='+inttostr(Bulno)+')');
 Sorgu.ExecSQL;
  Sorgu.Open;
   Result:=Sorgu.RecordCount;
end;
 Finally
 Sorgu.Close;
  Sorgu.Free;
   end;
    end;
{---Function--KayitBul--END---}

ve herhangi bir olayda button1click, show vs. yaz

Kod: Tümünü seç

var
Str:AklHtml;
 begin
Query1.Close;
Screen.Cursor:=crHourGlass;
Str :=AklHtml.Create;
     try
Query1.Open;

Str.HtmlBaslik;
  begin
  Str.HtmlKategoriListele(Query1);
end;
Str.HtmlSon;
Str.SaveToFile(GetCurrentDir+'/'+'OutputQuery1.html');
  Finally
 Str.Free;
WebBrowser1.Navigate(GetCurrentDir+'/'+'OutputQuery1.html');
Query1.Close;
Screen.Cursor:=crDefault;
  end;
end;

umarım faydalı olmustur anlamadıgın kısımları yaz yardımcı olayım

basarılar.