ئه‌ی پی ئای له ‌ڤیسوال به‌یž
API (Application programm interface( برێتین له كۆمه‌ڵێك فرمان و نه‌خشانی ئاماده‌كراو كه وه‌ك
نێوه‌ندێك ده‌توانین له‌به‌رنامه داڕشتندا سوودیان لێ وه‌ربگرین.. نێوه‌ندێك له نێوان سیسته‌می كۆمپیوته‌ر و به‌رنامه سازكراوه‌كه‌ی ئێمه.. .
بۆ نمونه: گه‌ر بمانه‌وێت فرمانێك به‌كار بهێنێن بۆ ده‌ستگیركردنی قه‌باره و جێی به‌تاڵی ناو كۆمپیوته‌ره‌كه‌مان
له‌ڕێگه‌ی GetDiskFreeSpace به ئاسانی ئه‌توانین ئه‌و كاره ئه‌نجام بده‌ین
له ڤیسوال به‌یسك 6.0
بڕۆ له‌سه‌ر لیسته‌ی سه‌ره‌كی Main menu
له Add-Ins دا Add-Ins Manager هه‌ڵبژێره
ئینجا له‌و په‌نجه‌ره‌یه‌ی ده‌رده‌كه‌وێت VB6 API Viewer كلیك بكه و به OK كۆتایی بهێنه.
دووباره بڕۆ Add-ins ئینجا API-Viewer ده‌بینیت، كلیكی له‌سه‌ر بكه.
ئینجا له‌و په‌نجه‌ره‌یه‌ی ده‌رده‌كه‌وێت ئه‌و نه‌خشانه‌ی API ده‌ستنیشان بكه و به OK كۆتایی بهێنه.
نمونه:
له‌به‌شی ڕوونكردنه‌وه و پێناسكردندا
Private Declare Function GetSystemDirectory Lib "kernel32" Alias "GetSystemDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long
دوگمه‌یه‌ك له‌سه‌ر فۆڕمه‌كه‌ت دابنێ به ناوی cmdGetSysDir
له جێبه‌جێكردنی كاره‌كه‌یدا
Private Sub cmdGetSysDir_Click()
Dim a As String * 256
GetSystemDirectory a, 256
MsgBox Left(a, InStr(a, Chr(0)) - 1), vbOKOnly, "API functions"
End Sub
- ته‌واو -
ئاراس نوری
ئازیزان له‌م شوێنه‌دا نمونه‌یه‌كم ئاماده كردووه، ئه‌توانن دابه‌زێنن
ناوی فایله‌كه TestAPI.zip
هه‌موو كۆده‌كان و فایلی .exe تێدایه..
له‌گه‌ڵ ڕێزمدا..
ئاراس.
ببورن :
http://www.geocities.com/mamaras2002/download/testAPI.zip
باشه ئەوەت زانیوه كەدەكرێ به هۆی xml-rpc دەگەڵ API سیستمێكی تر پەیوەندی بكرێت؟ ئەگەر زانیاریت لەم بارەیەوه هەیه، كارێكم پێته.
سڵاو براده‌ر...
نازانم نووسراوه‌كه‌ی به‌ڕێزتان لای من زۆر خراپ ده‌رده‌كه‌وێت..! بۆم ناخوێندرێته‌وه تا وه‌ڵامت بده‌مه‌وه.
ببوره..
هه‌ر بژیت.
ئاراس.
كاك ئاراس ئەم كاتەت باش
سەیرێكی testAPI ەتم كرد زۆر باشه و هیوا دارم هەر بەردەوام بیت.
من خۆم زیاتر تەجروبەم له سەر C++, COM زۆر كەمێك له VB ئەزانم ، بەڵام هەندێ ڕەخنەی بچوكم لەسەری هەیەو مەبەستیشم هەر پێش كەوتنتە:
1. calc.exe شەرت نی‌یه له c:\windows دا بێت، ئەمه بەستراوه بەوەی چ جۆره پلاتفۆرمێك‌و هەیه. بۆ نموونه calc.exe لەسەر WINNT وWIN2K ئەوەتا له c:\WINNT\system32.
2. Dim lAnswer As Long باشتر وایه Dim lAnswer As Boolean.
3. Dim lNumFreeBytes As Long ئەمه هەڵەیه، چونكە ئەگەر هارد دیسكێكی گەورەت هەبێت ئەوا پرۆگرامەكه ئیش ناكات‌و Error 6 Over Flow بەدەست دێت. ئەمه باشتر وایه كه بگۆرێت بۆ Dim lNumFreeBytes As Double وه هەروەها CLng بەكار بهێنه بۆ هەموو ئەو Long انەی كە بەكارت هێناوه بۆ بەدەست هێنانی lNumFreeBytes بەم جۆرەی خوارەوه:
lNumFreeBytes = CLng(lpNumberOfFreeClusters) * (CDbl(lpSectorsPerCluster) * CDbl(lpBytesPerSector))
زۆر سوپاس
فریاد
بەڕێز Ali، خەریكی هەندێ خەباتی سەرزەمینی بووم. ئەوه ویستم به xml-rpc پەیوەندی به api چاوجوانێكەوه بكەم بەڵام سێرڤەر‌‌كەی ئەم وەڵامی نەبوو.
ئەگەر مەبەستت api گووگڵەیه ئەوه ، هەر ئێستا سەیرێكی دەكەم. ئەگەر مەبەستت شتێكی تره، ئەوه لە خۆتی دەبیستم.
كەواتە لە قسەی لەسەر دەكەین لە دەرفەتێكدا..
كاتێكی خۆش