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

Delphi Thread

Ö÷´°Ìå:
Delphi(Pascal) code:

procedure TfrmMain.btnResumeClick(Sender: TObject);
begin
myThread := TClientThread.Create(LeftPart(cbbServer.Text, ':'), StrToInt(RightPart(cbbServer.Text, ':')));
myThread.Resume;
mmoLog.Lines.Add('Ïß³ÌÒѼ¤»î');
end;

procedure TfrmMain.btnSuspendClick(Sender: TObject);
begin
if myThread = nil then
begin
ShowMessage('Ïß³Ìδ´´½¨!');
Exit;
end;
myThread.Suspend;
mmoLog.Lines.Add('Ïß³ÌÒÑ¹ÒÆð');
end;

procedure TfrmMain.btnStopClick(Sender: TObject);
begin
if myThread = nil then
begin
ShowMessage('Ïß³Ìδ´´½¨!');
Exit;
end;
myThread.Terminate;
myThread.WaitFor;
mmoLog.Lines.Add('Ïß³ÌÒÑÍ£Ö¹');
end;



Ï̵߳¥Ôª:
Delphi(Pascal) code:

unit uClientThread;

interface

uses
Windows, Classes, SysUtils, IdTCPClient, uString, Main, uCommon, Messages, Dialogs;

const
CM_DIAL = WM_USER + $100;
CM_HUNGUP = WM_USER + $101;

type
TClientThread = class(TThread)
private
FClient: TIdTCPClient;
FRequest: TStrings;
FResponse: TStrings;
FNotifyHandle: HWND;
// FPioneerCtrl: HWND;

procedure DoDial;
procedure DoDrop;
procedure DoUpload;
procedure DoSave;
protected
procedur


Ïà¹ØÎÊ´ð£º

delphi ±¾µØ×°ÔØÇý¶¯ - Delphi / Windows SDK/API

delphi ÊÖ¶¯×°ÔØÇý¶¯ÎļþÌáʾ£º
RROR (1058): The driver is marked as disabled (Start=4) in its service database entry.
ÊDz»ÊÇÕâ¸öÇý¶¯±ØÐèÒªÓÃINFÀ´°²×°¡£¡£ÓÃ×Ô´øµÄINFÀ´×°ÊÇÕý³£µÄ¡£ÓÃÊÖ¶¯×°ÔؾÍÌáʾÈçÉÏ¡ ......

¸¶·ÑÇódelphiÆ´Òô±à³Ì - Delphi / ·Ç¼¼ÊõÇø

¾ßÌåÒªÇóÓ뱨³êQQ729851670
771234717

¡°Æ´Òô±à³Ì¡±ÊÇʲôÒâ˼

ÒýÓÃ
¡°Æ´Òô±à³Ì¡±ÊÇʲôÒâ˼
1.¸øÒ»¸ö×Ö¿ÉÒÔÏÔʾƴÒô£¬¶àÒô×ֵϰÄÜÏÔʾ¶ÔÓ¦µÄ¶à¸öÆ´Òô
2.¶Ô°üº¬¶àÒô×ֵĴÊÓïÖÇÄÜʶ±ð¸ø³öÆ´Òô¡£
3.¶ÔÒ»¶Î ......

delphiдµÄÒ»¸öcom×é¼þÔÚC#Öе÷Ó÷½·¨Ê§°Ü

µ÷ÓÃdelphiдµÄÒ»¸öcom×é¼þ£¬·½·¨ÊÇ
procedure test(out Param1: Integer); safecall;
×¢²ácomÖ®ºóÔÚc#ÖÐÒýÓö¼Ã»ÓÐÎÊÌâ
............´´½¨²¿·Ö¾ÍÊ¡ÂÔ²»Ð´ÁË
............
int v_int;
test(out v_int); µ÷ÓÃte ......

ÎÊ2¸ödelphiµÄСÎÊÌâ

listboxµÄOndrawltemʼþÔÚʲôÇé¿öÏ´¥·¢£¿
var
thepchar:array[0..79] of char;
thestring:string;
begin
...
strpcopy(thepchar,thestring);
longint(@thepchar);
......
end;
ÎÒÏëÎÊ
strpcopy(thepch ......

delphi¿ÉÒÔ·ÃÎÊvisual foxproµÄdbfÊý¾Ý¿âÂð

ÎÊ´ó¼Ò¸öÎÊÌ⣺
ÏÖÔÚÓÐÒ»¸öÏֳɵijÌÐò£¬ÊÇvisual foxpro×öµÄ£¬Êý¾Ý¿âÊÇdbfÎļþ£¬ÎÒûÓÐÓùýfoxpro£¬¿ªÊ¼¶¼Ã»ÕÒµ½Êý¾Ý¿â£¬ÖÕÓÚ¿´Ã÷°×Ô­À´dbf¾ÍÊÇÊý¾Ý¿â£¬£¨µ«Õâ¸ö³ÌÐòºÃ¶à¸ödbf°¡£¡»¹Ã»°²×°foxpro£¬Ã»´ò¿ªÕâЩÊý¾Ý¿â ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ