DelphiСƱ´òÓ¡»úÊÇ·ñÊÇ·ñ´æÔÚ£¿
´òӡСƱ£¬ÏȰÑÒª´òÓ¡µÄÄÚÈÝÊäÈëµ½Îı¾ÖУ¬
ÔÙµ÷LPT1´òÓ¡Îı¾
Èç¹ûûÓÐ×°´òÓ¡»úµÄ»°,ÔõÑùÈÃËüÌø³ö
// ÏòLPT¿Ú´òÓ¡Ò»¸öÎı¾Îļþ
procedure TPosFrm.PrintFile(AFileToPrint: string);
var
Port, FileToPrint: TextFile;
ALine: string;
begin
AssignFile(FileToPrint, AFileToPrint);
Reset(FileToprint);
AssignFile(Port, 'LPT1');
Rewrite(Port);
while not Eof(FileToPrint) do
begin
Readln(FileToPrint, ALine);
Writeln(Port, ALine);
end;
CloseFile(Port);
CloseFile(FileToPrint);
end;
Õâ¶Î³ÌÐò?²»È»³ÌÐòÎÞÏìÓ¡ÁË.
ÐֵܽãÃÃÃÇ£¡
ÓÐûÓÐÔø¸æËßÄ㣬ÎÒºÜÏ£Íû£¬Ï£ÍûÄãµÄ»Ø¸´£¡
´®¿ÚµÄ×ö¹ý,²»ÖªµÀ²¢¿ÚÔõô¼ì²â
СƱ´òÓ¡»¹ÓÐÆäËüʲô·½·¨Ã»£¿
ÓÐÓùýµÄÅóÓÑÖ¸µãÖ¸µã~~~~
ÎÊÎÊ´òÓ¡»úÌṩÉÌ,Ó¦¸ÃÓмì²â´òÓ¡»ú״̬µÄÖ¸Áî
ʯ³Á´óº£ÁË
ÌáÌù~~
°ï¶¥
ÕÒ³§ÉÌÒª´òÓ¡Ö¸Áî,ÔÙÓÃÖ¸Áî¼ì²â,²»Í¬µ
Ïà¹ØÎÊ´ð£º
ÎÒдÁ˸öС³ÌÐò£¬ÉÏÃæÌí¼ÓÁËÒ»¸öshockwaveflash¿Ø¼þ£¬È»ºóÔÚmovieÀïдÈëswfÎļþµÄ·¾¶£¬È»ºóÖ´ÐÐûÓÐÎÊÌâ¡£
µ±ÎÒ°ÑÕâ¸ö³ÌÐò×ªÒÆµ½Áíһ̨µçÄÔÖ´ÐÐʱ£¬ shockwaveflash ¿Ø¼þÏÔʾ¿Õ°×¡£Ò²¾ÍÊÇûÓмÓÔØÄǸöswfÎļþ¡£ ......
ÓÉÓÚ¿Í戶¶ËÓеÄÎļþ經³£¸üУ¨遠³ÌµÄ£¬²»ÊǾÖÓò網£©£¬
ËùÒÔÏë寫個×Ô動¸üÐ嵀 ³ÌÐò¡£
¿´網É쵀 ·½·¨資ÁÏ£¬ÖªµÀЩ·½·¨£¬µ«²»ÖªµÀ¾ß體Ôõô寫¡£
......
Delphi
ÔõÑù»ñÈ¡ÍøÒ³²¿·ÖÄÚÈÝ£¨´úÂ룩£¬²¢ÇÒÏÔʾ³öÀ´£¡
£¨Ö»ÊÇÍøÒ³ÀïÃæµÄÒ»²¿·ÖÄÚÈݲ¢²»ÊÇÈ«²¿£©
ûŪ¶®£¡
ÀàËÆwebseverµÄ¹¦ÄÜ£¿
¹À¼ÆÊÇÀûÓÃieµÄ½Ó¿Ú¡£¡£¡£¡£¡£¡£¡£¡£
ÊÇÀàËÆwebseverµÄ¹¦ÄÜ ......
procedure RunFunction;
type
TFunc = function(A: Integer): Integer;stdcall;¡¡//ÕâÀï¸ù¾ÝDLLÀïÃæº¯ÊýµÄÉùÃ÷ÐÞ¸Ä
var
......
ÎÒÏÈÓÃidhttp µÄget·½·¨·ÃÎÊÒ»¸öÍøÕ¾£¬ÍøÕ¾·µ»ØÁËÒ»¶Îcookie£¬µ±ÎÒ µ÷Óà idhttp post·½·¨µÄʱºò£¬ÎÒÈçºÎ°Ñ·þÎñÆ÷·µ»ØµÄÕâ¶Îcookies´øÉÏ £¬ÏÈлл¸÷λÁË
¶ÁÈ¡ HTTP Response Header
ÀïÃæÓÐ Set-Cookies Óò ......