Hot Search : Source embeded web remote control p2p game More...
Location : Home Search - HTML
Search - HTML - List
生成html的ASP网店系统
Update : 2009-09-04 Size : 918683 Publisher : 54980315@qq.com

解析url或者本地文件html页面类。如可以通过如下的方式获取html页面的元素: // Create DOM from URL or file $html = file_get_html('http://www.google.com/'); // Find all images foreach($html->find('img') as $element) echo $element->src . ''; // Find all links foreach($html->find('a') as $element) echo $element->href . ''; 更多的功能请见附带的文档和例子
Update : 2009-09-09 Size : 40705 Publisher : daqingzao

将cpp代码转换成高亮html代码的源程序,有说明的
Update : 2010-01-06 Size : 3010 Publisher : fwar34

unit UnitSendMail;

interface

uses
  Windows, SysUtils, Classes,StdCtrls, ExtCtrls, ComCtrls, Dialogs,
  IdMessage, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient,
  IdExplicitTLSClientServerBase,IdMessageClient, IdSMTPBase, IdSMTP, IdText,
  IDAttachmentFile;

function SendEMail(SenderName, SenderAddress: PChar;
    Receivename, ReceiveAddress: PChar; MailSubject, MailContent: PChar;
    JpgFileName: PChar; SendType: Integer; PicID: PChar; IsCustom: Boolean;Attachment:PChar): Boolean; stdcall;
function ConnectMailServer(Host, UserName, Password: PChar;
    Port: Integer): Boolean; stdcall;
procedure DisconnectMail; stdcall;

type
  TSendMailObj = class
  private
    FHost: String;
    FPort: Integer;
    FUserName: String;
    FPassword: String;
    ASmtp: TIdSMTP;
  public
    property Host: string read FHost write FHost;
    property Port: Integer read FPort write FPort;
    property UserName: String read FUserName write FUserName;
    property Password: String read FPassword write FPassword;
    constructor Create;
    function ConnectServer: Boolean;
    function SendEMail(SenderName, SenderAddress: PChar;
      Receivename, ReceiveAddress: PChar; MailSubject, MailContent: PChar;
      JpgFileName: PChar; SendType: Integer; PicID: PChar;
      IsCustom: Boolean;Attachment:PChar): Boolean;
  end;

var
  SendObj: TSendMailObj;

implementation

function SendEMail(SenderName, SenderAddress: PChar;
    Receivename, ReceiveAddress: PChar; MailSubject, MailContent: PChar;
    JpgFileName: PChar; SendType: Integer; PicID: PChar; IsCustom: Boolean;Attachment:PChar): Boolean; stdcall;
begin
  Result :=  SendObj.SendEMail(SenderName, SenderAddress, Receivename,
          ReceiveAddress, MailSubject, MailContent,
            JpgFileName, SendType, PicID, IsCustom,Attachment);
end;

function ConnectMailServer(Host, UserName, Password: PChar;
    Port: Integer): Boolean; stdcall;
begin
  try
    //if SendObj = nil then
    SendObj := TSendMailObj.Create;
{    if SendObj.ASmtp.Connected then
      SendObj.ASmtp.Disconnect;  }
    SendObj.Host := StrPas(Host);
    SendObj.Port := Port;
    SendObj.Username := StrPas(UserName);
    SendObj.Password := StrPas(Password);
    Result := SendObj.ConnectServer;
  except
    Result := False;
  end;
end;

procedure DisconnectMail; stdcall;
begin
  if SendObj <> nil then
  begin
    if SendObj.ASmtp <> nil then
      SendObj.ASmtp.Disconnect;
    SendObj := nil;
    SendObj.Free;
  end;
end;
{ TSendMailObj }

function TSendMailObj.ConnectServer: Boolean;
begin
  ASmtp.Host := FHost;
  ASmtp.Port := FPort;
  ASmtp.Username := FUserName;
  ASmtp.Password := FPassword;
  try
    ASmtp.Connect;
    Result := ASmtp.Connected;
  except
    Result := False;
  end;
end;

constructor TSendMailObj.Create;
begin
  ASmtp := TIdSMTP.Create(nil);

end;

function TSendMailObj.SendEMail(SenderName, SenderAddress, Receivename,
  ReceiveAddress, MailSubject, MailContent, JpgFileName: PChar;
  SendType: Integer; PicID: PChar; IsCustom: Boolean;Attachment:PChar): Boolean;
var
  IdBody, IdHtml: TIdText;
  Att: TIdAttachmentFile;
  AMessage: TIdMessage;
  ASmtp_1: TIdSMTP;
begin
  ASmtp_1 := TIdSMTP.Create(nil);
  ASmtp_1.Host := FHost;
  ASmtp_1.Port := FPort;
  ASmtp_1.Username := FUserName;
  ASmtp_1.Password := FPassword;
  //ASmtp_1.AuthType := atDefault;
  ASmtp_1.Connect; // }
  if not ASmtp.Connected then
    ASmtp.Connect;
  AMessage := TIdMessage.Create(nil);
  with AMessage do
  begin
    NoDecode := False;
    NoEncode := False;
    ContentType := 'multipart/mixed';
    Encoding := meMIME;
    MsgId := 'PrettyPic';
    if FileExists(StrPas(JpgFileName)) then
      References := ChangeFileExt(ExtractFileName(StrPas(JpgFileName)), '')
    else
      References := '';
    Recipients.Clear;
    with Recipients.Add do
    begin
      Name := StrPas(Receivename);
      Address := StrPas(ReceiveAddress);
    end;
    Subject := StrPas(MailSubject);
    Sender.Name := StrPas(SenderName);
    Sender.Address := StrPas(SenderAddress);
    From.Name := Sender.Name;
    From.Address := Sender.Address;
    if SendType = 0 then
    begin
      IdBody := TIdText.Create(MessageParts);
      IdBody.ContentType := 'text/plain';
      IdBody.Body.Add(StrPas(MailContent));
      IdBody.Body.Add('');
    end
    else
    begin
      IdHtml := TIdText.Create(MessageParts);
      IdHtml.ContentType := 'text/html;charset=gb2312';
      IdHtml.ContentTransfer := '7bit';
      IdHtml.Body.Add(' <html>');
      IdHtml.Body.Add('  <head>');
      IdHtml.Body.Add('      <title>' + StrPas(MailSubject) + ' </title>');
      IdHtml.Body.Add('  </head>');
      IdHtml.Body.Add('  <body title="' + References + '">');
      IdHtml.Body.Add('    ' + StrPas(MailContent) + ' <br>');
      if (not IsCustom) and FileExists(StrPas(JpgFileName)) then
        IdHtml.Body.Add('      <img src="cid:' + StrPas(PicID) + '" alt="' + ExtractFileName(StrPas(JpgFileName)) +
                            '" name="' + ExtractFileName(StrPas(JpgFileName)) + '" title="">');
      IdHtml.Body.Add('  </body>');
      IdHtml.Body.Add(' </html>');
    end;
    if FileExists(StrPas(JpgFileName)) then
    begin
      Att := TIdAttachmentFile.Create(MessageParts, StrPas(JpgFileName));
      Att.ExtraHeaders.Values['Content-ID'] := StrPas(PicID);
      Att.ContentType := 'image/jpg';
    end;  
    if FileExists(StrPas(Attachment)) then
    begin
      Att := TIdAttachmentFile.Create(MessageParts, StrPas(Attachment));
    end;
  end;
  try
    ASmtp_1.Send(AMessage);
    if Att <> nil then
      Att.Free;
    if IdBody <> nil then
      IdBody.Free;
    if IdHtml <> nil then
      IdHtml.Free;
    if AMessage <> nil then
      AMessage.Free;
    ASmtp_1.Disconnect;

    ASmtp_1.Free; //}
    ASmtp.Disconnect;
    Result := True;
  except on e: Exception do
  begin
    Result := False;
  end;
  end;

end;

end.


Update : 2009-01-14 Size : 1685 Publisher : kennyxue

非常使用的Html用例,让你的页面更加友好。
Update : 2009-03-04 Size : 270689 Publisher : shijingui

Html文件浏览
Update : 2009-03-29 Size : 1963732 Publisher : songhc1986

DL : 2
基础html教程PPT
Update : 2009-04-16 Size : 3181948 Publisher : luxin6@126.com

DL : 0
HTML速查
Update : 2010-11-12 Size : 164590 Publisher : hary_tang@126.com

在程序中嵌入HTML网页,在程序中嵌入HTML网页
Update : 2011-04-21 Size : 1911941 Publisher : yangideas

DL : 0
基于WebKit浏览器的本地扩展方法 基于网页结构树的Web信息抽取方法 基于HTML结构特征的网页信息提取
Update : 2011-12-20 Size : 38400 Publisher : weisongyao

HTML标记_HTML大全_HTML标记大全_超文本标记语言 网页(WebPage)文件主要是用超文本标记语言(HyperText Markup Language,简称HTML)语句来写成。您可以通过IE浏览器的“查看”菜单中的“源文件”看到该页的HTML代码。HTML语言由一系列元素(element)组成,用于组织文件的内容和指导文件的输出格式。元素名称不分大小写。一个元素可以有多个属性,属性及其属性值不分大小写。属性名=属性值合起来构成一个完整的属性,一个元素可以有多个属性,各个属性用空格分开。元素又由标记(tag)的构成,大多数标记是成对出现的,分起始标记< >(start tag)和结尾标记</ >(end tag),以便和页面的内容区分开来。其写成的文件是标准的ASCII文件,不同于一般的编程语言,故称为脚本(Script)更准确一点。其实也很简单,特别是在专门的HTML编辑器的帮助下,您可以迅速地学会HTML,并能很快写出有自己特色的Homepage来。
Update : 2012-03-21 Size : 105472 Publisher : tufangshisi

dhtml-html-css-javascript-dom帮助文档五合一
Update : 2012-06-14 Size : 6715804 Publisher : 545268162@qq.com

动态html-Dynamic html
Update : 2024-03-29 Size : 30720 Publisher : 邝小新

BooksHTML
DL : 0
HTML参考手册。-HTML reference manual.
Update : 2024-03-29 Size : 563200 Publisher : 王晶

DL : 0
HTML语言教程-HTML language course
Update : 2024-03-29 Size : 24576 Publisher :

HTML-XML-utils由一套小型C程序(过滤器)组成,可以读取HTML 和XML文件,增加一个内容表,一个字母索引,一个书目索引,交叉引用,数字化的头部,删除元素,记数元素,漂亮的打印功能,等等。当它读取HTML时,它假设代码是正确的HTML4.0,或是与其版本相近的代码。-HTML-XML-utils (filter) is composed by a set of small C procedure, may read takes HTML and the XML document, increases a content table, a letter index, a booklist index, the overlapping quotation, the digitized forehead, deletes the element, the register element, attractive printing function, and so on. When it reads takes HTML, its supposition code is correct HTML4.0, perhaps if edition close code.
Update : 2024-03-29 Size : 183296 Publisher : 韦生

html编辑器,没有网页的朋友可以用他自己做-html editor, not a friend of the website can be used to do his own
Update : 2024-03-29 Size : 385024 Publisher : 张伟良

DL : 0
HTML语言教程-Guide to HTML
Update : 2024-03-29 Size : 67584 Publisher : 乔金涛

HTML文件到txt文件转换器-HTML document to txt document switch
Update : 2024-03-29 Size : 28672 Publisher : 刘午

5日学会动态html》.zip-on the 5th Institute of dynamic html. " Zip
Update : 2024-03-29 Size : 30720 Publisher : 将将
« 12 3 4 5 6 7 8 9 10 ... 50 »
DSSZ is the largest source code store in internet!
Contact us :
1999-2046 DSSZ All Rights Reserved.