תחומים - פורום חרדי מקצועי

יש לי פונקציה שמוריד קובץ CSV מURL ושומר לתיקיה במחשב ומייבא לאקסס.
היום אני שם לב שבמקום שמירת הקובץ המעודכן אני מקבל שוב את הקובץ הישן.
האקסס שומר לי לתיקייה את הקובץ שהוא שמר אתמול במקום הקובץ החדש.

כשאני מעביר את הקובץ אקסס למחשב אחר זה כן שומר את הקובץ המעודכן.
רק במחשב שבו אני משתמש יש לי את הבעיה הזאת.

ניסיתי למחוק את הקובץ מהתיקייה לפני הייבוא, וזה לא עוזר, נותר לי קובץ חדש, אך עם הנתונים של אתמול.
הפעלה מחדש למחשב גם לא עזר.

הוא שומר לי קובץ ששמור בקאש באקסס? קאש במחשב?
איך ניתן לבדוק את זה?

מצורף הקוד:

Option Compare Database

Private Declare PtrSafe Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long


Private Sub ImportCSV_Click()
    
    Dim file As String
    file = "https://XXXX.co.il/File.csv"

    Dim done, saveTo
    saveTo = CurrentProject.PATH & "\Files\" & "File.csv"

    done = URLDownloadToFile(0, file, saveTo, 0, 0)
    
    If done = 0 Then
    Else
        MsgBox "נכשל בשמירת קובץ"
    End If
    
    'ייבוא
    ' מחיקת השורות הישנות
    CurrentDb.Execute "Delete * from Table"

    ' ייבוא
    DoCmd.TransferText acImportDelim, "import template", "Table", saveTo, True

    MsgBox "הייבוא הסתיים"
   
End Sub

@יעקב-ישראל כתב בקיים ראוטר וירטואלי? (בקובץ ISO או משהו דומה?):

@איש-ימיני ואז מה תגדיר את הVPN מהראוטר הוירטואלי לכל מכונה בנפרד ?

לכל הסוויץ'

אני מבין שאתה מנסה לחסוך את הכסף לנטפרי אבל VPN זה פר מחשב (או ראוטר במקרה פיזי)

גם הכסף וגם ההגדרה כל פעם.

@yossiz כתב בקיים ראוטר וירטואלי? (בקובץ ISO או משהו דומה?):

@איש-ימיני כל מחשב יכול להשתמש כראוטר, לא צריך משהו מיוחד

אני לא יכול לתת הוראות מדוייקות. ברמת התיאוריה זה בטח אפשרי, ונראה שגם אפשרי על ווינדוס בפועל (זה קשור איכשהו להגדרות שיתוף חיבור אינטרנט, אבל שוב, אני לא יכול לתת הוראות מדוייקות)

ניסיתי דרך שיתוף רשת של וינדוס, בפועל זה לא עובד לי, במחשב ששם אני מגדיר את הVPN יש רשת, אבל שאר המחשבים לא יכולים לגלוש, הם מקבלים כתובת IP אבל אין רשת.

תגובה: עזרה בשיתוף VPN לכמה מכשירים

קיים ראוטר וירטואלי? (בקובץ ISO או משהו דומה?)

אני צריך לשתף VPN של אראל נטפרי לכמה מחשבים.
הדרך הרגילה לזה הוא לקנות ראוטר שתומך ב VPN ולהגדיר שם את ה VPN.
אך אצלי מדובר בסביבה וירטואלית (vm esxi) כך שאין לי אפשרות 'לקנות' ראוטר.
אני צריך משהו כמו ראוטר וירטואלי.
יש כזה דבר?

(בחיפוש גוגל רגיל, לא מצאתי משהו נורמלי)

אני צריך עזרה בשיתוף VPN לכמה מכשירים ברשת.
מדובר על רשת פרוצה.
יש לי חשבון VPN של נטפרי באראל.
כרגע ה VPN מוגדר רק על מחשב אחד.
אני רוצה לשתף את זה לשאר המכשירים.
משהו כמו שיתוף אינטרנט לסוויץ' נפרד, אבל אינטרנט מסונן.

אשמח לקבל עזרה.

ניסיתי להוסיף סוויץ', ובהגדרות מתאם בווינדוס לשתף את הVPN לסוויץ החדש, זה מחלק כתובות IP לשאר המחשבים ברשת אבל בפועל אין להם רשת.

(גילוי נאות: מדובר לא במחשבים פיזיים רק בסביבה וירטואלית vm esxi על שרת)

@שמואל-ש
אם אני זוכר נכון, בשרת שאתה משתמש יש הגבלה של 25 מיילים ליום.
אם תחרוג החשבון שלך ייחסם.
כך היה לפני כמה שנים כשהשתמשתי עם השרת הזה.
תבדוק אם עדיין זה כך.

קיים API מוכן לבדיקה האם עכשיו שבת או חג?
או צריך לחשבן לבד לפי השקיעה?

@OdedDvir
הקוד עובד די טוב, אבל יש קטע מוזר שהמקטע האחרון חוזר על עצמו.
זה הקוד הסופי כרגע:

while(http.connected() && (len > 0 || len == -1)) {
// get available data size
    size_t size = stream->available();
    if(size) {
        // read up to 128 byte
        int c = stream->readBytes(buff, ((size > sizeof(buff)) ? sizeof(buff) : size));
 
        // write it to Serial
        Serial.write(buff, c);
        doSomething((char *)buff, c);

        // decrease length
        if(len > 0) {
            len -= c;
        }
    }
    delay(1);
}

void doSomething(char * segment, int size) {
    result += segment;
}
Serial.println(result);

בעת שאני מדפיס את התוצאה

Serial.println(result);

נראה שהמקטע האחרון של ה 128 ביטים חוזר על עצמו.
אבל אני יכול לשים תו סיום ולהסתדר.
תודה בכל אופן.

@OdedDvir כתב בעזרה בקטע קוד C++:

@yossiz לכאורה אפשר לוותר על זה לגמרי, אבל אז צריך לשלוח גם את הגודל של המערך (כי אין null char בסוף)

// cast into char array and send it to other function
   doSomething((char *)buff, c);

...
void doSomething(char * segment, int size) {
 // do your thing
}

הפתרון הזה עובד טוב מאוד.
עזרת לי מאוד.
תודה רבה.

@OdedDvir כתב בעזרה בקטע קוד C++:

@איש-ימיני buffer הוא אוגר. כאשר המידע מועבר בצורה לא רציפה, משתמשים ב-buffer כדי לקרוא את המידע בחתיכות.

לגבי היישום, תבדוק את הקטע האחרון שצירפתי. בפונקציה doSomething אתה יכול ליישם איזו לוגיקה שאתה רוצה.
למשל, בהנחה שיש לך משתנה מחרוזת גלובלי בשם result, אתה יכול להוסיף את המקטע למחרוזת:

void doSomething(String segment) { 
 result += segment;
}

ניסיתי.
result נשאר ריק.

@yossiz כתב בעזרה בקטע קוד C++:

@איש-ימיני
היה כדאי שהיית מציין שמדובר בארדואינו ולא ++C רגיל

אני לא מכיר ++C ולכן לא חשבתי שזה שונה.

הקוד שהבאת עובר בלולאה על התשובה מהשרת ובכל פעם שולף 128 בייטים ומדפיס אותם.
כדי לאסוף את התשובה המלאה למשתנה, תצטרך אחד מהשניים:

• או להקצות מראש buffer בגודל של התשובה, ובכל איטרציה של הלולאה להעתיק לשם את המידע שמתקבל (אבל כדי ליישם את זה תצטרך לדעת מראש את גודל התשובה)
• או להשתמש ב-buffer בגודל דינאמי (לא יודע אם יש כזה דבר בקלות בארדואינו)

כפי שכתבתי יש לי חוסר ידע בסיסי ב ++C.
אני אפילו לא יודע מה זה buffer, ואיך עובדים איתו, אני מכיר משתנים ומערכים מ phpו VBA.
הייתי רוצה משהו כזה:

String test = "";
test += Serial.write(buff, c);

אבל בפועל זה עושה מה שאני רוצה, במקום הטקסט של התשובה אני מקבל מספרים לא ברורים.
וסליחה על הבורות.

לצורך פרוייקט מסוים אני עובד על קוד שכתוב ב C++
אני כמעט לא מכיר את השפה.
אני מכיר php ו VBA ולכן אני כן מסתדר איכשהו..
נתקעתי בקטע שאני שולח בקשת POST לשרת ומקבל תשובה, את התשובה אני רוצה להכניס למשתנה סטרינג, ואני לא מצליח.

זה קטע הקוד שמקבל את התשובה ומדפיס את התשובה בIDE.

     // get lenght of document (is -1 when Server sends no Content-Length header)
                int len = http.getSize();

                // create buffer for read
                uint8_t buff[128] = { 0 };

                // get tcp stream
                WiFiClient * stream = http.getStreamPtr();
                Serial.println();
               
                // read all data from server
                while(http.connected() && (len > 0 || len == -1)) {
                    // get available data size
                    size_t size = stream->available();
                   

                    if(size) {
                        // read up to 128 byte
                        int c = stream->readBytes(buff, ((size > sizeof(buff)) ? sizeof(buff) : size));

                        // write it to Serial
                        Serial.write(buff, c);

                   
                        if(len > 0) {
                            len -= c;
                        }
                    }
                    delay(1);
                }

כאן נתקעתי בגלל חוסר הידע שלי ב C++.
אני לא מבין כלל מה הקטע קוד הזה עושה.
אני רוצה לשלוף את הטקסט למשתנה רגיל ואז להמשיך לבצע פעולות.
אך אני לא מצליח.

הקטע:

Serial.write(buff, c);

מדפיס את הנתונים ל IDE.
אני רוצה לקבל את זה למשתנה לדוגמה:

String test = "TEXT";

מישהו מכיר את Arduino ?
כדאי ללכת על הכיוון הזה?
דוגמה-1, דוגמה-2
ואולי מישהו מכיר מכשיר מוכן?

@צבי-ש
קו לא יעזור.
אני צריך תחליף לטבלט שעל הקיר, לבתי כנסת שאינם רוצים טבלט.
אני צריך מכשיר שיכול לקבל נתונים ושולח לשרת ומקבל תשובה.
מספיק לי גם מכשיר ללא קורא כרטיסים, מספיק שיהיה אפשרות להקיש את מספר האשראי.
העיקר שיהיה מכשיר מקשים פשוט על הקיר, שאינו טבלט, עם מסך קטן - לא מגע, לסליקת אשראי לחשבון בנדרים פלוס.

קיבלתי מכמה כיוונים בקשות למכשיר מקשים לסליקת אשראי שיוכל לסלוק לקופה בנדרים פלוס.
הדרישה היא שהמכשיר לא יהיה טבלט, רק מכשיר אשראי פשוט עם מקשים, ללא מסך מגע.

חשבתי לנסות להשיג מכשיר שקורא כרטיסי אשראי ושולח את הנתונים לשרת פרטי, ומשם אני אשלח את פרטי החיוב ל API של נדרים פלוס ולשלוח חזרה למכשיר סליקה האם התשלום עבר או לא.
(ואולי אפילו לתת אפשרות להדליק מזגנים בצורה כזאת)

מישהו מכיר מכשיר שאוכל לנסות להתחיל לעבוד עליו?
או האם מישהו יכול לתת לי כיון איך לנסות להתקדם?

@חוקר
שנים החלפתי את הקובץ בכל עדכון.
את הקובץ המעודכן לקחתי מכאן.
כהיום אני משתמש בתוכנה שכבר הובאה כאן, אך מקישור אחר. (המקור אינו מעודכן לגרסאות החדשות)

@שמואל4 כתב ב[ווינדוס לא נכנס לחשבון משתמש אחרי שינוי קובץ termsrv.dll]

היא משנה את הקובץ

בדקתי והקובץ לא משתנה כלל.
אולי התוכנה משנה את הקובץ בזיכרון ראם.

@חוקר כתב ב[ווינדוס לא נכנס לחשבון משתמש אחרי שינוי קובץ termsrv.dll]

כי בעבר נכתב שיש אנטי ווירוסים שמזהים את זה כווירוס

הדפנדר מזהה את התוכנה כווירוס.
גם הכרום עושה בעיות עם ההורדה.
ESET אינו מזהה את התוכנה כווירוס.

תגובה: ימות המשיח הוסיפו כתובות אייפי?

יש למישהו את רשימת הכתובות IP העדכני ?

@ש-ב-ח
לעברית:

$lang = 'iw';
$text = 'שלום עולם';

רק חבל שאין קול גבר.

אני צריך תוכנת קיוסק למחשב בבית כנסת.
כרגע יש שם רק קול הלשון.
אני צריך לאפשר גישה גם לקובץ אקסס.
ניסיתי להשתמש עם הקיוסק של סייפר אך זה לא נותן לאקסס להקפיץ טפסים.
מישהו מכיר תוכנת קיוסק שנותן מענה לזה?

@ארי
אני משתמש במצלמה מובנית.
תנסה לשנות את הקוד של @OdedDvir
להלן השינויים בחלק הראשון של הקוד:

'UX_WebCam : A WebCam API Class. By OdedDvir

Option Compare Database
Option Explicit

Const WS_CHILD As Long = &H40000000
Const WS_VISIBLE As Long = &H10000000

Const WM_USER As Long = &H400
Const WM_CAP_START As Long = WM_USER

Const WM_CAP_DRIVER_CONNECT As Long = WM_CAP_START + 10
Const WM_CAP_DRIVER_DISCONNECT As Long = WM_CAP_START + 11
Const WM_CAP_EDIT_COPY As Long = WM_CAP_START + 30
Const WM_CAP_SET_PREVIEW As Long = WM_CAP_START + 50
Const WM_CAP_SET_PREVIEWRATE As Long = WM_CAP_START + 52
Const WM_CAP_DLG_VIDEOFORMAT As Long = WM_CAP_START + 41
Const WM_CAP_FILE_SAVEDIB As Long = WM_CAP_START + 25
Const WM_CAP_GRAB_FRAME As Long = WM_CAP_START + 60

Private Declare Function apiCapCreateCaptureWindow Lib "avicap32.dll" Alias "capCreateCaptureWindowA" _
                                (ByVal lpszWindowName As String, ByVal dwStyle As Long, _
                                 ByVal X As Long, ByVal Y As Long, ByVal nWidth As Long, _
                                 ByVal nHeight As Long, ByVal hwndParent As Long, _
                                 ByVal nID As Long) As Long

Private Declare Function apiSendMessage Lib "user32" Alias "SendMessageA" _
                                (ByVal hWnd As Long, ByVal wMsg As Long, _
                                 ByVal wParam As Long, ByRef lParam As Any) As Long

Private Declare Function apiGetFocus Lib "user32" Alias "GetFocus" () As Long

Private hCap As Long

Public Sub OpenWebCam(targethWnd As Long, Optional width = 640, Optional height = 480)
    hCap = apiCapCreateCaptureWindow("Capture Window", WS_CHILD Or WS_VISIBLE, 0, 0, width, height, targethWnd, 0)
    If hCap = 0 Then Exit Sub
    apiSendMessage hCap, WM_CAP_DRIVER_CONNECT, 0, 0
    apiSendMessage hCap, WM_CAP_SET_PREVIEWRATE, 66, 0&
    apiSendMessage hCap, WM_CAP_SET_PREVIEW, CLng(True), 0&
End Sub

Public Sub TakeSnapshotToFile(fileName As String)
    apiSendMessage hCap, WM_CAP_GRAB_FRAME, 0, 0
    apiSendMessage hCap, WM_CAP_SET_PREVIEW, CLng(False), 0&
    apiSendMessage hCap, WM_CAP_FILE_SAVEDIB, 0&, ByVal CStr(fileName)
    apiSendMessage hCap, WM_CAP_SET_PREVIEW, CLng(True), 0&
End Sub

Public Sub OpenVideoFormatDialog()
    apiSendMessage hCap, WM_CAP_DLG_VIDEOFORMAT, 0&, 0&
End Sub

Public Sub CaptureToClipboard()
    apiSendMessage hCap, WM_CAP_GRAB_FRAME, 0, 0
    apiSendMessage hCap, WM_CAP_SET_PREVIEW, CLng(False), 0&
    apiSendMessage hCap, WM_CAP_EDIT_COPY, 0, 0
    apiSendMessage hCap, WM_CAP_SET_PREVIEW, CLng(True), 0&
End Sub

Public Sub CloseWebCam()
    apiSendMessage hCap, WM_CAP_DRIVER_DISCONNECT, 0&, 0&
End Sub

אני מקווה שזה כל השינויים.
אם עדיין לא עובד נצטרך להמתין ל @OdedDvir עצמו.

@ארי
יש שינויים בין 64 ל 32.
נסה עם קובץ זה:-צילום-תמונה-לאקסס.accdb
אמור לעבוד גם על 64 וגם על 32
אני מקווה שאין עוד שינויים שצריך לעשות
זה מה שעשיתי:

#If Win64 And VBA7 Then

Private Declare PtrSafe Function capCreateCaptureWindow _
    Lib "avicap32.dll" Alias "capCreateCaptureWindowA" _
         (ByVal lpszWindowName As String, ByVal dwStyle As Long _
        , ByVal X As Long, ByVal Y As Long, ByVal nWidth As Long _
        , ByVal nHeight As Long, ByVal hwndParent As LongPtr _
        , ByVal nID As Long) As Long

Private Declare PtrSafe Function SendMessage Lib "user32" _
    Alias "SendMessageA" (ByVal hWnd As LongPtr, ByVal wMsg As Long _
        , ByVal wParam As Long, ByRef lParam As Any) As Long
        
Dim hCap As LongPtr

#Else

Private Declare Function capCreateCaptureWindow _
    Lib "avicap32.dll" Alias "capCreateCaptureWindowA" _
         (ByVal lpszWindowName As String, ByVal dwStyle As Long _
        , ByVal X As Long, ByVal Y As Long, ByVal nWidth As Long _
        , ByVal nHeight As Long, ByVal hwndParent As Long _
        , ByVal nID As Long) As Long

Private Declare Function SendMessage Lib "user32" _
    Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long _
        , ByVal wParam As Long, ByRef lParam As Any) As Long
        
Dim hCap As Long

#End If