bcoder

Delphi使用windows Api下载文件

分类：Delphi, Internet 阅读 (2,422) No Responses »

8月 022012

Use windows api to download file in delphi

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, WinInet, StdCtrls;

type
TForm1 = class(TForm)
    Button1: TButton;
    Memo1: TMemo;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);

private
    { Private declarations }
public
    { Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

function DownloadToString(const Url: string): string;
var
NetHandle: HINTERNET;
UrlHandle: HINTERNET;
Buffer: array[0..1024] of Char;
BytesRead: dWord;
begin
Result := &#039;&#039;;
NetHandle := InternetOpen(&#039;Delphi 5.x&#039;, INTERNET_OPEN_TYPE_PRECONFIG, nil, nil, 0);

if Assigned(NetHandle) then
begin
    UrlHandle := InternetOpenUrl(NetHandle, PChar(Url), nil, 0, INTERNET_FLAG_RELOAD, 0);

    if Assigned(UrlHandle) then
      { UrlHandle valid? Proceed with download }
    begin
      FillChar(Buffer, SizeOf(Buffer), 0);
      repeat
        Result := Result + Buffer;
        FillChar(Buffer, SizeOf(Buffer), 0);
        InternetReadFile(UrlHandle, @Buffer, SizeOf(Buffer), BytesRead);
      until BytesRead = 0;
      InternetCloseHandle(UrlHandle);
    end
    else
      { UrlHandle is not valid. Raise an exception. }
      raise Exception.CreateFmt(&#039;Cannot open URL %s&#039;, [Url]);

    InternetCloseHandle(NetHandle);
end
else
    { NetHandle is not valid. Raise an exception }
    raise Exception.Create(&#039;Unable to initialize Wininet&#039;);
end;

function DownloadToFile(const Url, LFile: string): Boolean;
var
NetHandle: HINTERNET;
UrlHandle: HINTERNET;
Buffer: array[0..1024] of Char;
BytesRead: dWord;
LFileStream: TFileStream;
begin
Result := False;
NetHandle := InternetOpen(&#039;Delphi 5.x&#039;, INTERNET_OPEN_TYPE_PRECONFIG, nil, nil, 0);

if Assigned(NetHandle) then
begin
    UrlHandle := InternetOpenUrl(NetHandle, PChar(Url), nil, 0, INTERNET_FLAG_RELOAD, 0);

    if Assigned(UrlHandle) then
      { UrlHandle valid? Proceed with download }
    begin
      LFileStream := TFileStream.Create(LFile, fmCreate);
      FillChar(Buffer, SizeOf(Buffer), 0);
      repeat
//        Result := Result + Buffer;
        FillChar(Buffer, SizeOf(Buffer), 0);
        InternetReadFile(UrlHandle, @Buffer, SizeOf(Buffer), BytesRead);
        LFileStream.Write(Buffer, BytesRead);
      until BytesRead = 0;
      LFileStream.Free;
      InternetCloseHandle(UrlHandle);
    end
    else
      { UrlHandle is not valid. Raise an exception. }
      raise Exception.CreateFmt(&#039;Cannot open URL %s&#039;, [Url]);

    InternetCloseHandle(NetHandle);
end
else
    { NetHandle is not valid. Raise an exception }
    raise Exception.Create(&#039;Unable to initialize Wininet&#039;);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Memo1.Lines.Text := DownloadToString(&#039;http://www.mailsextractor.com/&#039;)
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  DownloadToFile(&#039;http://www.mailsextractor.com/mailsextractor.exe&#039;, &#039;mailsextractor.exe&#039;);
end;

end.

100

101

102

103

104

105

106

107

108

109

110

111

112

113

114

115

116

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, WinInet, StdCtrls;

type

TForm1 = class(TForm)

Button1: TButton;

Memo1: TMemo;

Button2: TButton;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

function DownloadToString(const Url: string): string;

var

NetHandle: HINTERNET;

UrlHandle: HINTERNET;

Buffer: array[0..1024] of Char;

BytesRead: dWord;

begin

Result := '';

NetHandle := InternetOpen('Delphi 5.x', INTERNET_OPEN_TYPE_PRECONFIG, nil, nil, 0);

if Assigned(NetHandle) then

begin

UrlHandle := InternetOpenUrl(NetHandle, PChar(Url), nil, 0, INTERNET_FLAG_RELOAD, 0);

if Assigned(UrlHandle) then

{ UrlHandle valid? Proceed with download }

begin

FillChar(Buffer, SizeOf(Buffer), 0);

repeat

Result := Result + Buffer;

FillChar(Buffer, SizeOf(Buffer), 0);

InternetReadFile(UrlHandle, @Buffer, SizeOf(Buffer), BytesRead);

until BytesRead = 0;

InternetCloseHandle(UrlHandle);

end

else

{ UrlHandle is not valid. Raise an exception. }

raise Exception.CreateFmt('Cannot open URL %s', [Url]);

InternetCloseHandle(NetHandle);

end

else

{ NetHandle is not valid. Raise an exception }

raise Exception.Create('Unable to initialize Wininet');

end;

function DownloadToFile(const Url, LFile: string): Boolean;

var

NetHandle: HINTERNET;

UrlHandle: HINTERNET;

Buffer: array[0..1024] of Char;

BytesRead: dWord;

LFileStream: TFileStream;

begin

Result := False;

NetHandle := InternetOpen('Delphi 5.x', INTERNET_OPEN_TYPE_PRECONFIG, nil, nil, 0);

if Assigned(NetHandle) then

begin

UrlHandle := InternetOpenUrl(NetHandle, PChar(Url), nil, 0, INTERNET_FLAG_RELOAD, 0);

if Assigned(UrlHandle) then

{ UrlHandle valid? Proceed with download }

begin

LFileStream := TFileStream.Create(LFile, fmCreate);

FillChar(Buffer, SizeOf(Buffer), 0);

repeat

// Result := Result + Buffer;

FillChar(Buffer, SizeOf(Buffer), 0);

InternetReadFile(UrlHandle, @Buffer, SizeOf(Buffer), BytesRead);

LFileStream.Write(Buffer, BytesRead);

until BytesRead = 0;

LFileStream.Free;

InternetCloseHandle(UrlHandle);

end

else

{ UrlHandle is not valid. Raise an exception. }

raise Exception.CreateFmt('Cannot open URL %s', [Url]);

InternetCloseHandle(NetHandle);

end

else

{ NetHandle is not valid. Raise an exception }

raise Exception.Create('Unable to initialize Wininet');

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

Memo1.Lines.Text := DownloadToString('http://www.mailsextractor.com/')

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

DownloadToFile('http://www.mailsextractor.com/mailsextractor.exe', 'mailsextractor.exe');

end;

end.

above is the code

unable to load cvstools错误

分类：Other 阅读 (1,582) No Responses »

8月 022012

今天在虚拟机中使用CVS CheckOut的时候出现了”Unable to
load MSVCP711.dll (0x0000007e). Check application installation”.的错误，后来在网上查了查，可能是缺少msvcp71.dll的原因，下载了一个msvcp71.dll到X:Program FilesCommon FilesMarch Hare Software Ltd目录后，问题就解决了。

MSSQL时间日期函数大全

分类：MSSQL 阅读 (2,280) No Responses »

8月 012012

1. 当前系统日期、时间
select getdate()

2. dateadd 在向指定日期加上一段时间的基础上，返回新的 datetime 值
例如：向日期加上2天
select dateadd(day,2,’2004-10-15′) –返回：2004-10-17 00:00:00.000

3. datediff 返回跨两个指定日期的日期和时间边界数。
select datediff(day,’2004-09-01′,’2004-09-18′) –返回：17

4. datepart 返回代表指定日期的指定日期部分的整数。
SELECT DATEPART(month, ‘2004-10-15’) –返回 10

5. datename 返回代表指定日期的指定日期部分的字符串
SELECT datename(weekday, ‘2004-10-15′) –返回：星期五

6. day(), month(),year() –可以与datepart对照一下

select 当前日期=convert(varchar(10),getdate(),120)
,当前时间=convert(varchar(8),getdate(),114)

select datename(dw,’2004-10-15′)

select 本年第多少周=datename(week,’2004-10-15′)
,今天是周几=datename(weekday,’2004-10-15’)

函数参数/功能
GetDate( ) 返回系统目前的日期与时间
DateDiff (interval,date1,date2) 以interval 指定的方式，返回date2 与date1两个日期之间的差值 date2-date1砍?
DateAdd (interval,number,date) 以interval指定的方式，加上number之后的日期
DatePart (interval,date) 返回日期date中，interval指定部分所对应的整数值
DateName (interval,date) 返回日期date中，interval指定部分所对应的字符串名称

参数 interval的设定值如下:

值缩写（Sql Server） (Access 和 ASP) 说明
Year Yy yyyy 年 1753 ~ 9999
Quarter Qq q 季 1 ~ 4
Month Mm m 月1 ~ 12
Day of year Dy y 一年的日数,一年中的第几日 1-366
Day Dd d 日，1-31
Weekday Dw w 一周的日数，一周中的第几日 1-7
Week Wk ww 周，一年中的第几周 0 ~ 51
Hour Hh h 时0 ~ 23
Minute Mi n 分钟0 ~ 59
Second Ss s 秒 0 ~ 59
Millisecond Ms – 毫秒 0 ~ 999
access 和 asp 中用date()和now()取得系统日期时间；其中DateDiff,DateAdd,DatePart也同是能用于Access和asp中，这些函数的用法也类似
举例：
1.GetDate() 用于sql server :select GetDate()

2.DateDiff(‘s’,’2005-07-20′,’2005-7-25 22:56:32′)返回值为 514592 秒
DateDiff(‘d’,’2005-07-20′,’2005-7-25 22:56:32′)返回值为 5 天

3.DatePart(‘w’,’2005-7-25 22:56:32′)返回值为 2 即星期一(周日为1，周六为7)
DatePart(‘d’,’2005-7-25 22:56:32′)返回值为 25即25号
DatePart(‘y’,’2005-7-25 22:56:32′)返回值为 206即这一年中第206天
DatePart(‘yyyy’,’2005-7-25 22:56:32′)返回值为 2005即2005年
DatePart(Hh, ‘2005-7-25 22:56:32’)返回值为22
DatePart(Mi, ‘2005-7-25 22:56:32’)返回值为56

Different sytles to show data in listview

分类：Android 阅读 (2,383) No Responses »

7月 232012

Bellow is several different styles to show data in listview, you can use it to select your desired style.

Just show it very simply, if you have suggestions, please contact us.

Soure code file have been attached.

Download Source Code of the article listviewTest

This gallery contains 0 photos

Errors made by myself when develop android app

分类：Android 阅读 (1,827) No Responses »

7月 162012

1. App crashes when it starts, because I make a error to set TextView.textcolor to a String resource Value, it should be a drawable resource value

<?xml version="1.0" encoding="utf-8"?>
<resources>
    <string name="mainbtnlogin">Login</string>
    <drawable name="general_back_color">#FFFFFF</drawable> //this is right to assign to a color type variable
    <string name="general_text_color">#000000</string> //this is wrong to assign to a color type variable
    <drawable name="general_linkable_color">#0000FF</drawable>
    <string name="value_zero">0</string>
</resources>

<?xml version="1.0" encoding="utf-8"?>

<string name="mainbtnlogin">Login</string>

<drawable name="general_back_color">#FFFFFF</drawable> //this is right to assign to a color type variable

<string name="general_text_color">#000000</string> //this is wrong to assign to a color type variable

</resources>

2. I wrote a function which used Context of the activity. But when I finished coding, eclipse gave an error message. After a about 1 hour research, I finally found I wrote the function in the subclass of the activity. After moving the function to the main class, it works.

package em8.admin;

//import a lot of packages

public class Em8MainActivity extends Activity {
	/** Called when the activity is first created. */
    @SuppressLint({ "ParserError", "NewApi" })
	@Override
    public void onCreate(Bundle savedInstanceState) {
        setContentView(R.layout.main);
        ...
    }

    public class ShowStatisticsTask extends AsyncTask&lt;String, integer, Long&gt;{
    	LogResItem lrItem = null;
    	SharedPreferences prefs = getSharedPreferences(ConstData.Settings_file_name, MODE_PRIVATE);
	    @Override
	    protected Long doInBackground(String... params) {
	    }

	    protected void onPostExecute(Long result) {
	    }

            //It is difficult to find, right?
	    public void showNotification(int icon,String tickertext,String title,String content){
	    	Notification notification=new Notification(icon,tickertext,System.currentTimeMillis());
	    	notification.defaults=Notification.DEFAULT_ALL;

	    	PendingIntent pt=PendingIntent.getActivity(this, 0, getIntent(), 0);
	    	notification.setLatestEventInfo(this,title,content,pt);
	    	notifyMgr.notify(notification_id, notification);
	    }

    }
}

package em8.admin;

//import a lot of packages

public class Em8MainActivity extends Activity {

/** Called when the activity is first created. */

@SuppressLint({ "ParserError", "NewApi" })

@Override

public void onCreate(Bundle savedInstanceState) {

setContentView(R.layout.main);

...

}

public class ShowStatisticsTask extends AsyncTask<String, integer, Long>{

LogResItem lrItem = null;

SharedPreferences prefs = getSharedPreferences(ConstData.Settings_file_name, MODE_PRIVATE);

@Override

protected Long doInBackground(String... params) {

}

protected void onPostExecute(Long result) {

}

//It is difficult to find, right?

public void showNotification(int icon,String tickertext,String title,String content){

Notification notification=new Notification(icon,tickertext,System.currentTimeMillis());

notification.defaults=Notification.DEFAULT_ALL;

PendingIntent pt=PendingIntent.getActivity(this, 0, getIntent(), 0);

notification.setLatestEventInfo(this,title,content,pt);

notifyMgr.notify(notification_id, notification);

}

3. (be continued…)

"Integer types not allowed" error

分类：Android 阅读 (2,032) No Responses »

7月 162012

When I gave a margin value 10 to TextView, the eclipse give a below error message.

error: Error: Integer types not allowed (at ‘layout_margin’ with value ’10’).

I searched on internet, and found can’t give a integer value to it, should use 10dip.

StrictMode of android

分类：Android 阅读 (2,203) No Responses »

7月 122012

StrictMode is a developer tool which used to detect accident in program. For example, if you do internet access or local file operation in the UI directly, the strictmode mechanism will throw an error to the application.

StrictMode is used default since Android 3.0(HoneyComb).

example of a wrong case

	public void downloadHtml(View view) throws IOException{
    	String response = &quot;&quot;;
    	DefaultHttpClient client = new DefaultHttpClient();
    	HttpGet httpGet = new HttpGet(&quot;http://svn1.bcoder.com&quot;);
		HttpResponse execute = client.execute(httpGet);
		InputStream content = execute.getEntity().getContent();

		BufferedReader buffer = new BufferedReader(new InputStreamReader(content));
		String s = &quot;&quot;;
		while ((s = buffer.readLine()) != null) {
			response += s;
		}
		TextView tv = (TextView)findViewById(R.id.textView1);
    	tv.setText(response);
    }

public void downloadHtml(View view) throws IOException{

String response = "";

DefaultHttpClient client = new DefaultHttpClient();

HttpGet httpGet = new HttpGet("http://svn1.bcoder.com");

HttpResponse execute = client.execute(httpGet);

InputStream content = execute.getEntity().getContent();

BufferedReader buffer = new BufferedReader(new InputStreamReader(content));

String s = "";

while ((s = buffer.readLine()) != null) {

response += s;

}

TextView tv = (TextView)findViewById(R.id.textView1);

tv.setText(response);

}

If you request an url like above, your app will crashes.

So the right thing we do this is we can run the internet request in thread(Threads, AsyncTask, Handler), I give a simple by AsyncTask.

	public void downloadHtml(View view) throws IOException{
	DownloadHtmlTask task = new DownloadHtmlTask();
	task.execute(new String[] { &quot;http://svn1.bcoder.com&quot; });
    }

	private class DownloadHtmlTask extends AsyncTask&lt;String, Void, String&gt; {
		@Override
		protected String doInBackground(String... urls) {
			String response = &quot;&quot;;
			InputStream in = null;
			for (String url : urls) {
				DefaultHttpClient client = new DefaultHttpClient();
				HttpGet httpGet = new HttpGet(url);
				try {
			    	URL urlget = new URL(url);
			    	HttpURLConnection conn = (HttpURLConnection)urlget.openConnection();

			    	conn.connect();

			    	in = (conn.getInputStream());
					BufferedReader buffer = new BufferedReader(new InputStreamReader(in));
					String s = &quot;&quot;;
					while ((s = buffer.readLine()) != null) {
						response += s;
					}

				} catch (Exception e) {
					e.printStackTrace();
				}
			}
			return response;
		}

		@Override
		protected void onPostExecute(String result) {
			TextView textView =  (TextView)findViewById(R.id.textView1);;
			textView.setText(result);
		}
	}

public void downloadHtml(View view) throws IOException{

DownloadHtmlTask task = new DownloadHtmlTask();

task.execute(new String[] { "http://svn1.bcoder.com" });

}

private class DownloadHtmlTask extends AsyncTask<String, Void, String> {

@Override

protected String doInBackground(String... urls) {

String response = "";

InputStream in = null;

for (String url : urls) {

DefaultHttpClient client = new DefaultHttpClient();

HttpGet httpGet = new HttpGet(url);

try {

URL urlget = new URL(url);

HttpURLConnection conn = (HttpURLConnection)urlget.openConnection();

conn.connect();

in = (conn.getInputStream());

BufferedReader buffer = new BufferedReader(new InputStreamReader(in));

String s = "";

while ((s = buffer.readLine()) != null) {

response += s;

}

} catch (Exception e) {

e.printStackTrace();

}

return response;

}

@Override

protected void onPostExecute(String result) {

TextView textView = (TextView)findViewById(R.id.textView1);;

textView.setText(result);

}

It looks very troublesome when we just debug the program, so we can also use a simple code to disable ThreadPolicy to avoid errors.

    public void onCreate(Bundle savedInstanceState) {
        super.onCreate(savedInstanceState);
        setContentView(R.layout.activity_main);

        StrictMode.ThreadPolicy policy = new StrictMode.ThreadPolicy.Builder().permitAll().build();
        StrictMode.setThreadPolicy(policy);
    }

public void onCreate(Bundle savedInstanceState) {

super.onCreate(savedInstanceState);

setContentView(R.layout.activity_main);

StrictMode.ThreadPolicy policy = new StrictMode.ThreadPolicy.Builder().permitAll().build();

StrictMode.setThreadPolicy(policy);

}

…

Show category navbar under menu navigation in WordPress

分类：Other 阅读 (1,658) No Responses »

7月 112012

WordPress Ver: 3.4.1
Theme: suffusion version 4.2.5

A screen shot of where is the category navbar

Steps to configure the option

1. Sign in your wordpress back-end
2. Select page Appearance->Suffusion Options on the left function navigation bar
3. Select “Other Graphical Elements” on the top of suffusion options page

4. Select “Breadcrumbs and Page Navigation” on the left bar

5. And now you can configure the category text navigation bar in the page now.

Use Delphi to Get external program's menu and simulate clicking on it

分类：Delphi 阅读 (1,884) No Responses »

7月 102012

unit Unit1;
interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, ComCtrls;

type
  TForm1 = class(TForm)
    TreeView1: TTreeView;
    BitBtn1: TBitBtn;
    procedure BitBtn1Click(Sender: TObject);
    procedure TreeView1DblClick(Sender: TObject);
  private
    hnotepad: THandle;
    procedure AddChildMenus(pnd:TTreenode;m:hMenu);
  public
  { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.AddChildMenus(pnd:TTreenode;m:hMenu);
VAR
  i,id:integer;
  nd:TTreenode;
  MText : ARRAY[0..255] OF Char;
begin
  for i:=0 to GetMenuItemCount(m)-1 do begin
  Id := Integer(GetMenuItemID(m, i));
  GetMenuString(m, i, MText, 255, MF_BYPOSITION);
  if id = -1 then begin
  nd:=Treeview1.items.AddChild(pnd, mText);
  AddChildMenus(nd, GetSubMenu(m, i));
  end
  else if length(Trim(MText)) &gt; 0 THEN
  Treeview1.items.AddChildObject(pnd, Format(&#039;%s {ID=%d}&#039;,[MText, Id]), Pointer(Id));
  END;
END;

procedure TForm1.BitBtn1Click(Sender: TObject);
var
  root:TTreenode;
begin
  hnotepad:=FindWindow(nil, &#039;记事本&#039;);
  if hnotepad &lt;&gt; 0 then
    if GetMenu(hnotepad) &lt;&gt; 0 then begin
      root:=Treeview1.items.Add(nil, &#039;Main Menu&#039;);
      AddChildMenus(root, GetMenu(hnotepad));
      Treeview1.FullExpand;
      Refresh;
    end;
end;

procedure TForm1.TreeView1DblClick(Sender: TObject);
begin
  BringWindowToTop(hNotePad);
  PostMessage(hNotePad,WM_COMMAND,Integer(Treeview1.Selected.Data), 0);
end;

end.

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, Buttons, ComCtrls;

type

TForm1 = class(TForm)

TreeView1: TTreeView;

BitBtn1: TBitBtn;

procedure BitBtn1Click(Sender: TObject);

procedure TreeView1DblClick(Sender: TObject);

private

hnotepad: THandle;

procedure AddChildMenus(pnd:TTreenode;m:hMenu);

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.AddChildMenus(pnd:TTreenode;m:hMenu);

VAR

i,id:integer;

nd:TTreenode;

MText : ARRAY[0..255] OF Char;

begin

for i:=0 to GetMenuItemCount(m)-1 do begin

Id := Integer(GetMenuItemID(m, i));

GetMenuString(m, i, MText, 255, MF_BYPOSITION);

if id = -1 then begin

nd:=Treeview1.items.AddChild(pnd, mText);

AddChildMenus(nd, GetSubMenu(m, i));

end

else if length(Trim(MText)) > 0 THEN

Treeview1.items.AddChildObject(pnd, Format('%s {ID=%d}',[MText, Id]), Pointer(Id));

END;

procedure TForm1.BitBtn1Click(Sender: TObject);

var

root:TTreenode;

begin

hnotepad:=FindWindow(nil, '记事本');

if hnotepad <> 0 then

if GetMenu(hnotepad) <> 0 then begin

root:=Treeview1.items.Add(nil, 'Main Menu');

AddChildMenus(root, GetMenu(hnotepad));

Treeview1.FullExpand;

Refresh;

end;

procedure TForm1.TreeView1DblClick(Sender: TObject);

begin

BringWindowToTop(hNotePad);

PostMessage(hNotePad,WM_COMMAND,Integer(Treeview1.Selected.Data), 0);

end;

end.

Page 39 of 39 Newer Entries 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39