接收pop3 Public Function Retrieve(ByVal rhs As Pop3Message) As Pop3Message Dim message, response As String Dim msg As New Pop3Message msg.bytes = rhs.bytes msg.number = rhs.number message = "RETR " + rhs.number.ToString + vbCrLf write(message) response = Respond() If response.Substring(0, 3) <> "+OK" Then Throw New Pop3Exception(response) End If MsgBox(msg) msg.retrieved = True While (1 = 1) response = Respond() If response = "." + vbCrLf Then Exit While Else msg.message += response End If End While Return msg End Function
標簽： Pop3Message Function Retrieve response
上傳時間： 2013-12-28
上傳用戶：fnhhs
This code detects memory leaks in embedded VC++ almost the same way crtdbg does in VC++. At the end of program execution it will display in the debug window if there were any memory leaks and how the memory looks so you can identify where your memory leak occurred. It will display in the debug window a message saying no memory leaks detected if there are no memory leaks. Similar to what crtdbg.h does in VC++. The code detects memory leaks generated with calls to new and delete operators in C++. The code doesn t detect memory leaks generated with C functions: malloc, calloc, free, but that can be done in the future. Let me know and I will program it.
標簽： the embedded detects almost
上傳時間： 2015-05-07
上傳用戶：comua
1. PL/0 語言介紹 ●PL/0 程序設計語言是一個較簡單的語言，它以賦值語句為基礎，構造概念有順序、條件和重復（循環）三種。PL/0 有子程序概念，包括過程定義（可以嵌套）與調用且有局部變量說明。PL/0語言編譯程序采用以語法分析為核心、一遍掃描的編譯方法。詞法分析和代碼生成作為獨立的子程序供語法分析程序調用。語法分析的同時，提供了出錯報告和出錯恢復的功能。在源程序沒有錯誤編譯通過的情況下，調用類PCODE解釋程序解釋執行生成的類PCODE代碼。 ●保留字(關鍵字)：所謂保留字是指在Pascal語言中具有特定的含義。標準Pascal語言中的保留字一共有35個，Turbo Pascal語言一共有51個。下面是Pascal語言的保留字：AND，ARRAY，BEGIN，CASE，CONST，DIV，DO，DOWNTO，ELSE，END，FILE，FOR，FUNTION，GOTO，IF，IN，LABEL，MOD，NIL，NOT，OF，OR，PACKED，PROCEDURE，PROGRAM，RECORD，REPEAT，SET，THEN，TO，TYPE，UNTIL，VAR，WHILE，WITH，EXPORTS，SHR，STRING，ASM，OBJECT，UNIT，CONSTRUCTOR，IMPLEMENTATION，DESTRUCTOR，USES，INHERITED，INLINE，INTERFACE，LIBRARY，XOR，SHL
上傳時間： 2015-07-17
上傳用戶：zm7516678
Visual Basic 6.0可以通過調用API函數格式化一個磁盤，無論是軟盤還是硬盤。 打開一個新的項目(工程1) ，如果你沒有更改過缺省模式，那么Visual Basic 6.0會自動添加一個form1文件，在form1上添加一個命令控件，將下面的代碼拷入。 Option Explicit Private Declare Function SHFormatDrive Lib"shell32"( ByVal Hend AS Long,ByVal Drive AS Long,ByVal FormatID AS Long,ByVal Options AS Long) as Long Private Sub FormatDisk(intDrive as integer,blnQuickFormat as Boolean) dim lngReturn As Long if (blnQuickFormat) then lngReturn= SHFormatDrive(0,intDrive,0&,1&) else lngReturn= SHFormatDrive(0,intDrive,0&,0&) end if end Sub Private Sub Command1_Click() call FormatDisk(0,True) End Sub 運行此程序。 注意FormatDisk函數的第一個變量很重要，他的值是0,1,2時代表格式化的分別是：A、B、C盤。
上傳時間： 2015-10-05
上傳用戶：kytqcool
---實現的部分VHDL 程序如下。 --- elsif clk1x event and clk1x = 1 then ---if std_logic_vector(length_no) >= “0001” and std_logic_vector(length_no) <= “1001” then -----數據幀數據由接收串行數據端移位入接收移位寄存器---rsr(0) <= rxda --- rsr(7 downto 1) <= rsr(6 downto 0) --- parity <= parity xor rsr(7) --- elsif std_logic_vector(length_no) = “1010” then --- rbr <= rsr --接收移位寄存器數據進入接收緩沖器--- ...... --- end if
標簽： clk1x std_logic_vector length_no elsif
上傳時間： 2015-10-28
上傳用戶：cainaifa
<％@ LANGUAGE="VBSCRIPT" ％> <!--#include file="conn.asp" --> <％ ProductClass_2=request("ProductClass_2") set rs=server.createobject("adodb.recordset") sqltext="select * from Product" if request("Product_Name")<>"" then sqltext=sqltext &" where Product_Name like ％"& request("Product_Name") &"％ " else sqltext=sqltext &" where Product_Name like ％"& "" &"％ " end if if request("Product_Class")<>"" then sqltext=sqltext &" and Class_1 like ％"& request("Product_Class") &"％ " end if
標簽： ProductClass lt LANGUAGE VBSCRIPT
上傳時間： 2013-11-25
上傳用戶：wl9454
％ 文件名：randlsbget.m ％ 程序員:余波 ％ 編寫時間:2007.6.25 ％ 函數功能: 本函數將完成提取隱秘于上的秘密信息 ％ 輸入格式舉例:result=( scover.jpg ,56, secret.txt ,2001) ％ 參數說明: ％ output是信息隱藏后的圖象 ％ len_total是秘密信息的長度 ％ goalfile是提取出的秘密信息文件 ％ key是隨機間隔函數的密鑰 ％ result是提取的信息 function result=randlsbget(output,len_total,goalfile,key) ste_cover=imread(output) ste_cover=double(ste_cover) ％ 判斷嵌入信息量是否過大 [m,n]=size(ste_cover) frr=fopen(goalfile, a ) ％ p作為信息嵌入位計數器將信息序列寫回文本文件 p=1 ％ 調用隨機間隔函數選取像素點 [row,col]=randinterval(ste_cover,len_toal,key) for i=:len_toal if bitand(ste_cover(row(i),col(i)),1)==1 fwrite(frr,1, bit1 ) result(p,1) else fwrite(frr,0, bit1 ) result(p,1)=0 end if p==len_total break end p=p+1 end fclose(frr)
標簽： randlsbget result scover 2007
上傳時間： 2015-11-10
上傳用戶：yzhl1988
DATA:BEGIN OF HEADDATA. INCLUDE STRUCTURE BAPIMATHEAD. DATA:END OF HEADDATA. DATA:BEGIN OF PLANTDATA. INCLUDE STRUCTURE BAPI_MARC. DATA:END OF PLANTDATA. DATA:BEGIN OF PLANTDATAX. INCLUDE STRUCTURE BAPI_MARCX. DATA:END OF PLANTDATAX. READ TABLE XMKPF INDEX 1. IF XMKPF-TCODE2 = MIGO_GR . LOOP AT XMSEG.
標簽： DATA HEADDATA BEGIN BAPIMATHEAD
上傳時間： 2015-12-17
上傳用戶：古谷仁美
#ifdef _AFXDLL Enable3dControls() // Call this when using MFC in a shared DLL #else Enable3dControlsStatic() // Call this when linking to MFC statically #endif CPreviewDialogDlg dlg m_pMainWnd = &dlg int nResponse = dlg.DoModal() if (nResponse == IDOK) { // TODO: Place code here to handle when the dialog is // dismissed with OK } else if (nResponse == IDCANCEL) { // TODO: Place code here to handle when the dialog is // dismissed with Cancel } // Since the dialog has been closed, return FALSE so that we exit the // application, rather than start the application s message pump. return FALSE }
標簽： Enable3dControls Enable3d AFXDLL shared
上傳時間： 2015-12-19
上傳用戶：hustfanenze
Status StrAssign(SString T,char *chars) { // 生成一個其值等于chars的串T int i if(strlen(chars)>MAXSTRLEN) return ERROR else { T[0]=strlen(chars) for(i=1 i<=T[0] i++) T[i]=*(chars+i-1) return OK } }
標簽： chars StrAssign SString Status
上傳時間： 2014-01-10
上傳用戶：lwwhust
