Welcome![Sign In][Sign Up]
Location:
Search - HTML

Search list

[Web Server生成html的ASP网店

Description: 生成html的ASP网店系统
Platform: | Size: 918683 | Author: 54980315@qq.com | Hits:

[Web Server解析url或者本地文件html页面类

Description: 解析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 . ''; 更多的功能请见附带的文档和例子
Platform: | Size: 40705 | Author: daqingzao | Hits:

[Windows Developc++代码转换诚高亮html代码

Description: 将cpp代码转换成高亮html代码的源程序,有说明的
Platform: | Size: 3010 | Author: fwar34 | Hits:

[Delphi VCL带附件及Html显示的邮件发送类

Description:

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.


Platform: | Size: 1685 | Author: kennyxue | Hits:

[Other Web Code深入浅出Html

Description: 非常使用的Html用例,让你的页面更加友好。
Platform: | Size: 270689 | Author: shijingui | Hits:

[Browser ClientHtml文件浏览

Description: Html文件浏览
Platform: | Size: 1963732 | Author: songhc1986 | Hits:

[WebsiteHtml

Description: 基础html教程PPT
Platform: | Size: 3181948 | Author: luxin6@126.com | Hits:

[BooksHTML速查

Description: HTML速查
Platform: | Size: 164590 | Author: hary_tang@126.com | Hits:

[SourceCode在程序中嵌入HTML网页

Description: 在程序中嵌入HTML网页,在程序中嵌入HTML网页
Platform: | Size: 1911941 | Author: yangideas | Hits:

[Program docwebkit html

Description: 基于WebKit浏览器的本地扩展方法 基于网页结构树的Web信息抽取方法 基于HTML结构特征的网页信息提取
Platform: | Size: 38400 | Author: weisongyao | Hits:

[DocumentsHTML标签大全

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

[Booksdhtml-html-css-javascript-dom帮助文档五合一

Description: dhtml-html-css-javascript-dom帮助文档五合一
Platform: | Size: 6715804 | Author: 545268162@qq.com | Hits:

[Books5日学会动态HTML

Description: 动态html-Dynamic html
Platform: | Size: 30720 | Author: 邝小新 | Hits:

[BooksHTML

Description: HTML参考手册。-HTML reference manual.
Platform: | Size: 563200 | Author: 王晶 | Hits:

[Bookshtml教材

Description: HTML语言教程-HTML language course
Platform: | Size: 24576 | Author: | Hits:

[Editorhtml-xml-utils-2[1].4.tar

Description: 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.
Platform: | Size: 183296 | Author: 韦生 | Hits:

[Windows Develophtml编辑

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

[BooksHTML语言教程

Description: HTML语言教程-Guide to HTML
Platform: | Size: 67584 | Author: 乔金涛 | Hits:

[EditorHTML文件到txt文件转换器

Description: HTML文件到txt文件转换器-HTML document to txt document switch
Platform: | Size: 28672 | Author: 刘午 | Hits:

[Books《5日学会动态html》

Description: 5日学会动态html》.zip-on the 5th Institute of dynamic html. " Zip
Platform: | Size: 30720 | Author: 将将 | Hits:
« 12 3 4 5 6 7 8 9 10 ... 50 »

CodeBus www.codebus.net