Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö160KB

DelphiÖеÄͼƬÎÊÌâ - Delphi / Êý¾Ý¿âÏà¹Ø

ÎÒÓõÄÊÇsql server2000£¬¶¨ÒåÓÐ×Ö¶ÎѧºÅ£¨¹Ø¼ü×Ö£©£¬¡­¡­¡­¡­¡­¡­£¬ÕÕÆ¬£¨varchar(100))£¬ÒÔϲ¿·Ö´úÂ룺
procedure TfrmStuInfoMng.Label10Click(Sender: TObject);
begin
  if OpenPictureDialog1.Execute then
  begin
  Image2.Picture.LoadfromFile(OpenPictureDialog1.FileName);
  end;
end;
var
  strPicPath:String;
procedure TfrmStuInfoMng.Label11Click(Sender: TObject);

begin
  strPicPath := ExtractFilePath(Application.ExeName) + '\Images\' +DBEdit1.Text+ '.jpg';
  Image2.Picture.SaveToFile(strPicPath);
  Application.MessageBox('±£´æ³É¹¦!','ÕÕÆ¬±£´æ',MB_OK+MB_ICONASTERISK);
end;

ÆäÖеÚÒ»¸ö¹ý³ÌÊÇʵÏÖÉÏ´«ÕÕÆ¬¹¦Äܵģ¬µÚ¶þ¸ö¹ý³ÌÊÇʵÏÖ°´Ñ§ºÅ±£´æÕÕÆ¬µÄ¹¦Äܵ쬱£´æÂ·¾¶¾ÍÔÚÎÒµÄ.exe¿ÉÖ´ÐÐÎļþÏÂÎÒËù¼ûµÄImagesÎļþ¼ÐÏ£¬²¢ÃüÃûΪ¹Ø¼ü×ÖѧºÅ¡£

ÒòΪÎÒÔÚÊý¾Ý¿â´æµÄÊÇvarcharÀàÐ͵Ä×ֶΣ¬ËùÒÔµ±ÎÒ´ò¿ªÎÒËù×öµÄ´°¿Úʱ£¬²¢Ã»ÓÐÏÔʾÎÒ±£´æµÄÕÕÆ¬£¬±¾ÏëÓÃÒÔÏ´úÂëʵÏÖ£º

procedure TfrmStuInfoMng.ADOQuery1AfterScroll(DataSet: TDataSet);
begin
  Image2.Picture.LoadfromFile(strPicPath);
end;

¿ÉÊǶ¯²»ÁË£¡£¡£¬¼´±ãÎÒ°Ñstrpicpath¶¨ÒåΪȫ¾Ö±äÁ¿Ò²²»¿ÉÓã¬ÎÒÏëÎʵÄÊÇÎÒдµÄ¹ý³ÌTfrmStuInfoMng.ADOQuery1AfterScroll(DataSet:TDataSet)£»ÊDz»ÊÇ´íÁË £¬ÕýÈ·µÄ¸ñʽÊÇÔõôÑùµÄ£¡£¡£¿


£¨Ë³±ã²å²¥Ò»Ï£¬ÎÒ½¨µÄÁíÒ»¸ö±íÀïÃæÓÐedit£¬checkbox¿Ø¼þ£¬È«¶¼²»¿ÉÒÔÑ¡ÔñÁË£¿£¡ÎªÊ²Ã´°¡£¡ÆäÖпؼþµÄenabaleʱ¼äȫΪtrue£¡£¡Ë­¿ÉÒÔ¸æËßÎÒ°¡£¡£¡£©




Ïà¹ØÎÊ´ð£º

PythonÖеÄUnicodeÔÚDelphiÈçºÎ»¹Ô­³ÉGb2312£¿

ÒÑÖªPython ÖУº
s = unicode("²âÊÔ", "gb2312")
s = u'\u6d4b\u8bd5'
print s
²âÊÔ

ÔÚDelphiÀïÃæÈçºÎ½«\u6d4b\u8bd5ÕâÑùµÄ»¹Ô­³ÉGb2312µÄºº×ÖÄØ£¿
ÕÒµ½¸ö·½·¨
......

DELPHIÕâÖÖÇé¿öÔõô°ì£¿ - Delphi / Windows SDK/API

¾ÍÊÇÒ»¸ö·þÎñ¶ËºÍÒ»¸ö¿Í»§¶Ë£¬Àï±ßÓÐһЩ¹²Óõ¥Ôª £¬ÎÒÔÚ ¹¤³ÌµÄSEARCH PATHÀïÉèÖõÄ·¾¶£¬
Àï±ßÓиö½á¹¹Ì壬ÎÒÔÚ·þÎñ¶Ë´ò¿ª£¬¼ÓÁ˳ÉÔ±£¬µ«ÊÇÎÒÔÚ¿Í»§¶ËÆäËûµ¥Ôª·ÃÎʲ»µ½ÎÒмӵģ¬ÎÒÔÚ¿Í»§¶Ë´ò¿ªÄǸöµ¥Ôª£¬È·Êµ¼ÓÁ ......

delphiÈçºÎµ÷ÓÃdllÎļþÖеÄexe

Çë½Ì¸÷·¸ßÊÖ¡£ÎäÁÖǰ±²¡£ÎÒ½«B.EXE×ö³É×ÊÔ´Îļþ£¬È»ºó¼Óµ½123.dllÖС£ÓÃA.EXEÀ´µ÷ÓÃ123.dllÖеÄB.EXE
Çë¸÷λǰ±²°ïæָ½ÌÏ¡£A.exeÈçºÎÀ´µ÷ÓÃdllÖеÄexe£¿´úÂëÓÖ¸ÃÈçºÎд£¿


ÎÞÈ˻شð£¿

×ö³É×ÊÔ´Î ......

delphi ÎÊÌ⣿ - Delphi / ÓïÑÔ»ù´¡/Ëã·¨/ϵͳÉè¼Æ

1¡¢ÎÒÄÜ·ñÔÚdelphiÀïµ÷ÓÃÁíÍâÒ»¸öºǫ́³ÌÐò£¬µ«ÊÇÎÒ²»ÐèÒªµÈ´ýÕâ¸öºǫ́³ÌÐòÖ´ÐÐÍê³É£¬»¹¿ÉÒÔ¼ÌÐøÖ´ÐбðµÄ³ÌÐò¡£ÇëÎʾßÌåÔõôÑù²ÅÄÜʵÏÖ¡£
2¡¢ÎÒÄÜ·ñÔÚdelphiÉÏÖ´ÐÐÒ»¸ö¿ì½Ý¼ü£¬Ê¹delphi´°¿Ú³ÌÐòÄܹ»Ë¢ÐÂһϡ£[/size ......

DelphiµÄÓï·¨ÎÊÌâ - Delphi / ÓïÑÔ»ù´¡/Ëã·¨/ϵͳÉè¼Æ

Àý×Ó³ÌÐò¼û¸½¼þ£¬ÓÃDelphi 7½øÐбàÒë
ÎÊÌâ´úÂëΪ 
Delphi(Pascal) code:
if Node.ChildNodes <> nil then
begin
for i := 0 to Node.ChildNodes.Count - 1 do
begin
cNode := N ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ