|
||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
 |
 |
 |
||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
|
|
טסקט תקתעהל תושמשמ םייתש :תויצקנופ עברא הליכמ חותיפה תכרע עגונב "םכח שוחינ" עצבל תרשפאמ תחא , (ךפהלו) ילאוזיול יגול טמרופמ ןלהל .הכרעה יושיר תודוא עדימ הגיצמ הנורחאהו ןותנ טסקט לש טמרופל :C++ -ב תורדגומ ןהש יפכ ,תויצקנופה תרתוכ
void evrit_L2V (char *pszBuffer, char *pszSource);
void evrit_V2L (char *pszBuffer, char *pszSource); int evrit_GetFormat (char *pszBuffer); void evrit_License (); רשא Null Terminated String -ל עיבצמ אוה (pszSource) ינשה רטמרפה אוה (pszBuffer) ןושארה רטמרפה .רימהל םיצור ותוא טסקטה תא ליכמ .רוקמה טסקט ךרואל הוושה לדוגב יונפ ןורכיז קולבל עיבצמ הלש "שוחינ"ה תא ףקשמה ,int ךרע הריזחמ evrit_GetFormat היצקנופה :(pszBuffer) טסקטה טמרופ יבגל .(ההובג תוריבסב) יגול טמרופב טסקטה = 1 .(ההובג תוריבסב) ילאוזיוו טמרופב טסקטה = 2 .(ידמ רצק אוהש וא ,ירבע וניא טסקטה) שוחינ עצבל ןתינ אל = 0 תויצקנופל אורקל תנמ לע .תורחא תופשמ םג DLL -ב שמתשהל ,ןבומכ ,ןתינ :תינכותה תישארב האבה הרדגהה תא לולכל שי ,לשמל , Visual Basic-מ
Declare Sub evrit_L2V Lib "EvrTools.dll" (ByVal Buffer As
String, ByVal Source As String) תבית תמייקש חיננ האבה אמגודב .הרמהה תיצקנופל אורקל ןתינ ,ךליאו ןאכמ טסקטה תבית ךותב אצמנ רשא טסקטה תא רימנו ,FirstName םשב טסקט :ילאוזיו טמרופל
Dim Result As String
' Visual Basic does not allocate memory for strings unless ' they are explicitly filled, so we fill the string with spaces before ' calling evrit_L2V. Result = String$(Len(FirstName.Text), " ") ' Call the Logical to Visual conversion function evrit_L2V (Result, FirstName.Text) |
|
||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
 |
 |
 |
||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
|
||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
