Strona: [  << <   1   > >>  ]  z  1     
Autor Temat: "maly-duzy" klopot z wyszukiwaniem
netu



Typ: neutral
Postów: 119
Zarejestrowany: Jun 2003
"maly-duzy" klopot z wyszukiwaniem

mam program klient serwer
jest opcja wyszukiwania plikow u innego kompa ale wyskakuje blad i nie wiem czym to jest spowodowane.
mam odpowiednie funkcje do wyszukiwania ktore 100% dzialaja. gdy sie lacze z ip - 127.0.0.1 - domyslnym wszystko idzie ok ale gdy np: przez LAN
do kumpla to u niego wyskakuje blad i nie chce szukac.
WHY?


_____________________________________________
To co dzieje się teraz i po teraz 
tak długo nie ma znaczenia 
dopóki jutro jutra jest takie samo jak wczoraj wczoraj. 
                                Murphy

06-07-2003 18:38
Pokaż profil netu  Wyślij email do netu        4335686
m-a-x



Typ: neutral
Postów: 366
Zarejestrowany: Jan 2003

Zależy w jaki sposób przesyłasz info o wyszukanych plikach i w jaki sposób wysyłasz żądanie wyszukiwania. Nie wiem czemu u ciebie to działa lokalnie a przez lan nie. Napisałbyś przynajmniej jaki to błąd i umiescił przynajmniej część kodu programu - może wtedy by ci ktoś powiedział o co chodzi.


_____________________________________________

Problemem zazwyczaj nie jest brak osób znających odpowiedź a zadanie właściwego pytania!

14-07-2003 22:04
Pokaż profil m-a-x  Wyślij email do m-a-x   
netu



Typ: neutral
Postów: 119
Zarejestrowany: Jun 2003

to jest funkcja do szukania (nie moja):

Public Function FindFile(ByVal Path As String, ByVal File As String) As String
Dim DirName As String, LastDir As String

If File = "" Then Exit Function
If Right(Path, 1) <> "" Then Path = Path & ""

DirName = Dir(Path & "*.*", vbDirectory)
Do While Not FileExist(Path & File)

If DirName = "" Then Exit Do
DoEvents
If DirName <> "." And DirName <> ".." Then
If (GetAttr(Path & DirName) And vbDirectory) = vbDirectory Then
LastDir = DirName
DirName = FindFile(Path & DirName & "", File)
If DirName <> "" Then
Path = DirName
Exit Do
End If
DirName = Dir(Path, vbDirectory)
Do Until DirName = LastDir Or DirName = ""
DirName = Dir
Loop
If DirName = "" Then Exit Do
End If
End If
DirName = Dir
Loop

If FileExist(Path & File) Then FindFile = Path

End Function

do serwera przesylam info "szukaj" & plik 
gdy wyszuka ma przeslac do klienta sciezke z plikiem- cos w tym rodzaju (kod u serwera):

ElseIf Mid(vtData, 1, 6) = "szukaj" Then
  find = FindFile(Mid(vtData, 7, 1) & ":\", Mid(vtData, 8))
    If find <> "" Then
        Socket(Index).SendData "szukaj" & find & Mid(vtData, 8)
      Else
        Socket(Index).SendData "szukaj" & "Pliku nie znaleziono"
    End If

[Post edytowany dnia 15-07-2003 12:30 przez netu]


_____________________________________________
To co dzieje się teraz i po teraz 
tak długo nie ma znaczenia 
dopóki jutro jutra jest takie samo jak wczoraj wczoraj. 
                                Murphy

15-07-2003 12:27
Pokaż profil netu  Wyślij email do netu        4335686
m-a-x



Typ: neutral
Postów: 366
Zarejestrowany: Jan 2003

No dobra teraz jeszcze napisz jaki to rodzaj błędu wyskakuje i (jeżeli wiesz) gdzie - w którym miejscu. Żeby to sprawdzić wystarczy dodać obsługe błędów.

Między czasie może sam coś napisze - tzn właściwie kiedyś pisałem coś w rodzaju trojana w vb i była tam tego typu funkcja z tym że user (klient) podawał katalog a serwer listował wszystkoco sie w nim znajduje. Jak bedziesz chciał to ci to moge podesłac na priv.


_____________________________________________

Problemem zazwyczaj nie jest brak osób znających odpowiedź a zadanie właściwego pytania!

15-07-2003 14:27
Pokaż profil m-a-x  Wyślij email do m-a-x   
netu



Typ: neutral
Postów: 119
Zarejestrowany: Jun 2003

dzieki. musze to sprawdzic ale ja w domu nie mam lana i musze u kumpla testowac a on na wczasy pojechal wiec w sobote dopiero moge przetestowac.
co do bledu to mial numer (chyba ) 52 ale tresci nie pamietam
ps: gdzie mozna na privie pisac?


_____________________________________________
To co dzieje się teraz i po teraz 
tak długo nie ma znaczenia 
dopóki jutro jutra jest takie samo jak wczoraj wczoraj. 
                                Murphy

15-07-2003 19:20
Pokaż profil netu  Wyślij email do netu        4335686
m-a-x



Typ: neutral
Postów: 366
Zarejestrowany: Jan 2003

Mówiąc priv miałem na mysli przesłanie na maila.
Error o numerze 52 to: "Bad file or number" wiec musi gdzieś być błąd w wyszukiwaniu. Teraz na to nie lookne ale jutro może go znajde i ci napisze o co chodzi jednak dla mnie łatwiej i lepiej by było wysłać ci ten programik (i chyba tak zrobie )


_____________________________________________

Problemem zazwyczaj nie jest brak osób znających odpowiedź a zadanie właściwego pytania!

15-07-2003 22:33
Pokaż profil m-a-x  Wyślij email do m-a-x   
netu



Typ: neutral
Postów: 119
Zarejestrowany: Jun 2003

wdzieczny bym byl za kazda pomoc.


_____________________________________________
To co dzieje się teraz i po teraz 
tak długo nie ma znaczenia 
dopóki jutro jutra jest takie samo jak wczoraj wczoraj. 
                                Murphy

16-07-2003 11:38
Pokaż profil netu  Wyślij email do netu        4335686
Wszystkich odpowiedzi: 6 :: Maxymalnie na stronę: 20
Strona: [  << <   1   > >>  ]  z  1