下载频道  >  boyfig的资源
  • 51单片机的电压表(ADC0809)程序+仿真

    51单片机的电压表(ADC0809)程序+仿真 C语言的

    2016-05-31
    9
  • 舵机控制程序

    舵机控制程序

    2016-05-31
    2
  • 51单片机产生PWM波

    51单片机产生PWM波

    PWM

    2016-05-31
    11
  • Delphi编写的网页采集

    unit Unit3; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm3 = class(TForm) Button1: TButton; Edit1: TEdit; Memo1: TMemo; Button2: TButton; Button3: TButton; Button4: TButton; procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); procedure Button3Click(Sender: TObject); procedure Button4Click(Sender: TObject); private { Private declarations } procedure into(i: Word); public { Public declarations } end; var Form3: TForm3; implementation uses UI_Less; {$R *.dfm} procedure TForm3.into(i: Word); var sh: TUILess; su: boolean; // 是否获取成功 // isstop: boolean; //设全局变量可以中断连接 ,避免出错 surl: PWideChar; begin //surl :=PWideChar(Trim(Edit1.Text)); surl :='http://www.baidu.com';//PWideChar(Edit1.Text); //ShowMessage(surl); sh := TUILess.Create(nil); try Memo1.Clear; case i of 1: sh.GetAnchorList(sh.get(surl, su, False), Memo1.Lines); 2: sh.GetImageList(sh.get(surl, su, False), Memo1.Lines); 3: begin sh.get(surl, su, False); Memo1.Lines := sh.BodyText; end; 4: begin sh.get(surl, su, False); Memo1.Lines := sh.BodyHtml; end; end; finally sh.Free; end; end; procedure TForm3.Button1Click(Sender: TObject); begin into(1); end; procedure TForm3.Button2Click(Sender: TObject); begin into(2); end; procedure TForm3.Button3Click(Sender: TObject); begin into(3); end; procedure TForm3.Button4Click(Sender: TObject); begin into(4); end; end.

    2010-07-28
    3
  • 网上游世博V1.0(EXPO _V1.0)

    通过这个软件,你可以分享网友在世博园的快乐,当然你也可以把你的快乐分享给大家.

    2010-05-03
    0
img

关注 私信


用户积分:0