h tfilestream.create(filename,fmopenread) do
try
setlength(Result,size);
read(Pointer(Result)^,size);
finally
free;
end;
end;
//±£´æ×Ö¶Î
begin
if (opendialog1.execute) then
begin
sFileName:=OpenDialog1.FileName;
adotable1.edit;
adotable1.fieldbyname('visio').asstring:=Blobcontenttostring(FileName);
adotable1.post;
end;

¡ó[DELPHI]°ÑÎļþÈ«²¿¸´ÖƵ½¼ôÌù°å
uses shlobj,activex,clipbrd;
procedure Tform1.copytoclipbrd(var FileName:string);
var
FE:TFormatEtc;
Medium: TStgMedium;
dropfiles:PDropFiles;
pFile:PChar;
begin
FE.cfFormat := CF_HDROP;
FE.dwAspect := DVASPECT_CONTENT;
FE.tymed := TYMED_HGLOBAL;
Medium.hGlobal := GlobalAlloc(GMEM_SHARE or GMEM_ZEROINIT, SizeOf(TDropFiles)+length(FileName)+1);
if Medium.hGlobal<>0 then begin
Medium.tymed := TYMED_HGLOBAL;
dropfiles := GlobalLock(Medium.hGlobal);
try
dropfiles^.pfiles := SizeOf(TDropFiles);
dropfiles^.fwide := False;
longint(pFile) := longint(dropfiles)+SizeOf(TDropFiles);
StrPCopy(pFile,FileName);
Inc(pFile, Length(FileName)+1);
pFile^ := #0;
finally
GlobalUnlock(Medium.hGlobal);
end;
Clipboard.SetAsHandle(CF_HDROP,Medium.hGlobal);
end;
end;

¡ó[DELPHI]Áоٵ±Ç°ÏµÍ³ÔËÐнø³Ì
uses TLHelp32;
procedure TForm1.Button1Click(Sender: TObject);
var lppe: TProcessEntry32;
found : boolean;
Hand : THandle;
begin
Hand := CreateToolhelp32Snapshot(TH32CS_SNAPALL,0);
found := Process32First(Hand,lppe);
while found do
begin
ListBox1.Items.Add(StrPas(lppe.szExeFile));
found := Process32Next(Hand,lppe);
end;
end;

¡ó[DELPHI]¸ù¾ÝBDETable1½¨Á¢Ð±íTable2
Table2:=TTable.Create(nil);
try
Table2.DatabaseName:=Table1.DatabaseName;
Table2.FieldDefs.Assign(Table1.FieldDefs);
Table2.IndexDefs.Assign(Table1.IndexDefs);
Table2.TableName:='new_table';
Table2.CreateTable();
finally
Table2.Free();
end;

¡ó[DELPHI]×î²ËÀí½âDLL½¨Á¢ºÍÒýÓÃ
//ÏÈ¿´DLL source(FILE-->NEW-->DLL)
library project1;
uses
SysUtils, Classes;
function addit(f:integer;s:integer):integer;export;
begin
makeasum:=f+s;
end;
exports
addit;
end.
//µ÷ÓÃ(IN ur PROJECT)
implementation
function addit(f:integer;s:integer):integer;far;external 'project1';//ÉêÃ÷
{µ÷ÓþÍÊÇaddit(2,4);½á¹ûÏÔʾ6}

¡ó[DELPHI]¶¯Ì¬¶ÁÈ¡³ÌÐò×ÔÉí´óС
function GesSelfSize: integer;
var
f: file of byte;
begin
filemode := 0;
assignfile(f, application.exename);
reset(f);
Result := filesize(f);//µ¥Î»ÊÇ×Ö½Ú
closefile(f);
end;

¡ó[DELPHI]¶ÁÈ¡BIOSÐÅÏ¢
with Memo1.Lines do
begin
Add('MainBoardBiosName:'+^I+string(Pchar(Ptr($FE061))));
Add('MainBoardBiosCopyRight:'+^I+string(Pchar(Ptr($FE091))));
Add('MainBoardBiosDate:'+^I+string(Pchar(Ptr($FFFF5))));
Add('MainBoardBiosSerialNo:'+^I+string(Pchar(Ptr($FEC71))));
end;

¡ó[DELPHI]¶¯Ì¬½¨Á¢MSSQL±ðÃû
procedure TForm1.Button1Click(Sender: TObject);
var MyList: TStringList;
begin
MyList := TStringList.Create;
try
with MyList do
begin
Add('SERVER NAME=210.242.86.2');
Add('DATABASE NAME=db');
Add('USER NAME=sa');
end;
Session1.AddAlias('TESTSQL', 'MSSQL', MyList); //«Ø¥ßMSSQL§O¦W
Session1.SaveConfigFile;
finally
MyList.Free;
Session1.Active:=True;
Database1.DatabaseName:='DB';
Database1.AliasName:='TESTSQL';
Database1.LoginPrompt:=False;
Database1.Params.Add('USER NAME=sa');
Database1.Params.Add('PASSWORD=');
Database1.Connected:=True

ÉÏÒ»Ò³  [1] [2] [3] [4] [5] [6] [7] [8] [9] [10]  ... ÏÂÒ»Ò³  >> 

Ïà¹ØרÌ⣺

¡¡ ¡¡ÍøÓÑÆÀÂÛ£º£¨ÆÀÂÛÄÚÈÝÖ»´ú±íÍøÓѹ۵㣬Óë±¾Õ¾Á¢³¡Î޹أ¡£©

GOOGLE¹ã¸æ

Ïà¹ØÎÄÕÂ

SGIPµÄdelphiÔ­Âë
ÕæÕýµÄDelphiÃæÏò¶ÔÏó±à³Ì(Ò»)
ĿǰΪֹ×îºÃµÄDelphi 8 for .NetÊé¼®¡­
Ò»¸öC++³ÌÐòÔ±µÄDelphiѧϰ±Ê¼Ç(2)
Ò»¸öC++³ÌÐòÔ±µÄDelphiѧϰ±Ê¼Ç