| |
| |
|
| - page 1 - |
|
Jac
de
Lad | allô son im Forum!
avec FTP() peux je oui dans Profan im Internet agieren. mais peux je aussi im Intranet, alors per LAN irgendwie Fichiers austauschen? Beziehungsweise de einem freigegebenen Dossier Fichiers beziehen? chez mir hat cela toujours pas geklappt!
Jac |
|
| |
| Profan² 2.6 bis XProfan 11.1+XPSE+XPIA+XPRR (und irgendwann XIDE)
Core2Duo E8500/T2250, 8192/1024 MB, Radeon HD4850/Radeon XPress 1250, Vista64/XP | 29.01.2006 ▲ |
|
| |
|
|
| |
| |
| - page 1 - |
|
Jac
de
Lad | allô Rolf!
je hab mir qui LANInc grad la fois angeschaut. bof, avec cela serait es zwar aller, mais seeeeehr compliqué (meiner attitude pour jedenfalls). Gibts pas ne einfachere Possibilité um sur Netzwerk-Dossier (alors je mon im Netzwerk freigegebene) zuzugreifen? Kennt quelqu'un peut-être ne DLL ou bien so? alors qui RasOnline.dll ist déjà entier prima im Umgang avec Internet mais im Intranet chez mir trop Hause hats plan pas feunktioniert...
Jac  |
|
| |
| Profan² 2.6 bis XProfan 11.1+XPSE+XPIA+XPRR (und irgendwann XIDE)
Core2Duo E8500/T2250, 8192/1024 MB, Radeon HD4850/Radeon XPress 1250, Vista64/XP | 29.01.2006 ▲ |
|
| |
|
|
Rolf
Koch | allez einfacher:
KompilierenMarqueSéparationCODE ERZEUGT MIT ROKOS OBJECT CREATOR 4.3a
DATUM 29.01.2006 um 16:19 Uhr
VERWENDETE PROFANVERSION IST 8.0-NT XPROFAN
CODE ERSTELLT UNTER WINDOWS XP
!!! Dieser Code wird von Roc immer neu erzeugt !!!
!!! Erst bearbeiten, wenn alle Objekte erzeugt wurden !!!
!!! Verändern Sie ggf. feste Pfade in variable Pfade !!!
DEF GETSYSCOLOR(1) !"USER32","GetSysColor"
DECLARE LISTBOX1&, netzpfad$
NETZPFAD$="\TOBIASMESSAGE"
WINDOWSTYLE 63
WINDOWTITLE "Local Area Network ;)"
WINDOW 22,20-275,500
SETTRUECOLOR 1
DECLARE ENDE%
CLS GETSYSCOLOR(15)
USEFONT "MS Sans Serif",13,0,0,0,0
SETDIALOGFONT 1
Hier kann ggf. Ihr Menü hin
LISTBOX1& = CREATE("LISTBOX",%HWND,"liste",0015,0016,0220,0411)
Addfiles Netzpfad$+"*.*"
Movelisttolist(Listbox1&)
SETFOCUS(%HWND)
WHILENOT ENDE%
WAITINPUT
If @EQU(%KEY,2)
LET ENDE%= 1
ELSEIF @EQU(%KEY,4)
ELSEIF GETFOCUS(LISTBOX1&) LISTBOX
ENDIF
WEND
attention: Beachte le nombre qui Backslashs, qui sommes so important.
alors pass Dir es simple la fois à. |
|
| |
| |
| |
|
|
Jac
de
Lad | merci Rolf!
Hm, sur qui einfachsten Sachen venez on la fois wieder pas. Heißt cela, dass je une Netzwerkordner (z.B. //Susi/Profan-Shared) simple comment une normalen Dossier verwenden peux? ensuite wären alle mon Fragen et Probleme gelöst!
Jac  |
|
| |
| Profan² 2.6 bis XProfan 11.1+XPSE+XPIA+XPRR (und irgendwann XIDE)
Core2Duo E8500/T2250, 8192/1024 MB, Radeon HD4850/Radeon XPress 1250, Vista64/XP | 29.01.2006 ▲ |
|
| |
|
|
Rolf
Koch | *lölchen*
oui richtig.
seulement darfst Du pas so:
//Susi/Profan-Shared,
mais so
///Susi/Profan-Shared
angeben.
Bien sûr doit qui Pfade entsprechend freigegeben son.
Rolf |
|
| |
| |
| |
|
|
Jac
de
Lad | Rolf, tu es qui allergrößte!
cela klappt entier prima. Ne kleine Frage venez mir maintenant mais encore: Ist es possible, den Freigabenamen rauszufinden? alors ///Susi/Profan-Shared (dans qui Annahme, dass cela Prog den pas kennt. et en supplément am besten qui Arbeitsgruppencomputer et qui Arbeitsgruppe. alors so: d'abord ermittel je qui Arbeitsgruppen, ensuite qui angeschlossenen ordinateur et schließlich qui freigegebenen Dossier, qui je ensuite alle pour quoi que + subj. fouiller peux. Weißte quoi je mon? Ist cela irgendwie possible (sans, dass je dir maintenant chacun la quantité travail aufbürde!).
Jac
PS: ROC 4.3a ROCKT! |
|
| |
| Profan² 2.6 bis XProfan 11.1+XPSE+XPIA+XPRR (und irgendwann XIDE)
Core2Duo E8500/T2250, 8192/1024 MB, Radeon HD4850/Radeon XPress 1250, Vista64/XP | 29.01.2006 ▲ |
|
| |
|
|
Rolf
Koch | kurz ma vite répondre 
> d'abord ermittel je qui Arbeitsgruppen
ca pouvoir oui qui Laninc.
Mach Dir fois le Mühe et kuck qui Dir richtig à.
qui ist absolu pas compliqué ist oui sogar ne Aider chez *lol*
Rolf |
|
| |
| |
| |
|
|
Rolf
Koch | si Du sur cela Beispiel qui LANINC zumindest qui User herausbekommen la hâte, so peux Du hiermit peut-être. weiterarbeiten.
Am Schluss entsteht une Textdatei, avec quel Du ensuite weiterarbeiten peux.
dans cette Texdatei stehen alle Freigaben zum gewählten Arbeitscomputer.
KompilierenMarqueSéparationdeclare zeile$,computer$
CLS
def Freigaben(1) winexec(getenv$("COMSPEC") +" /k net view \"+$(1)+" > C:USER.TXT",0)
Freigaben("TOBIAS")
sleep 3000 bisschen Zeit lassen
@sendmessage(FindWindow($syspath+"cmd.exe"),16,0,0)
Assign #1,"C:USER.TXT"
Reset #1
Whilenot eof(#1)
input #1,zeile$
if instr("Freigegebene Ressourcen auf ",zeile$)
computer$=""+translate$(zeile$,"Freigegebene Ressourcen auf ","")
endif
if instr("Platte",zeile$)
zeile$=del$(zeile$,instr("Platte",zeile$),100)
zeile$=trim$(zeile$)
print Computer$+""+Zeile$
endif
wend
close #1
Assign #1,"C:USER.TXT"
Erase #1
waitinput
|
|
| |
| |
| |
|
|
Jac
de
Lad | oui, nee, alors,
is bien sûr, dass cela so allez, mais je voulais plan verhindern, dass je toujours seulement ne temporäre Dossier écrivons muss et so. J'ai pensé cela allez avec ner API ou bien quoi dans qui Art aussi!? je trouve cela reichlich compliqué seulement ne temporäre Dossier écrivons muss...weißte quoi je mon??? Aussi erscheint mir cela avec Sleep assez unsicher (langsamer/plus rapide calculateur). et quoi ist si je ne nichtdeutsche Windows-Version habe? (Freigegebene Resourcen sur...)
Jac |
|
| |
| Profan² 2.6 bis XProfan 11.1+XPSE+XPIA+XPRR (und irgendwann XIDE)
Core2Duo E8500/T2250, 8192/1024 MB, Radeon HD4850/Radeon XPress 1250, Vista64/XP | 29.01.2006 ▲ |
|
| |
|
| |
| |
| - page 2 - |
|
|
Rolf
Koch | stimmt aussi wieder *lol*
la fois regarder, quoi on là encore faire peux.
la hâte mich oui überzeugt
Rolf |
|
| |
| |
| |
|
|
Rolf
Koch | grad la fois ici am kucken, wird mais assez happig
[...] 
Rolf |
|
| |
| |
| |
|
|
 | Hm je glaub je hatte cela alles Schonmal mise en œuvre - alors TCPIP-communication.
Ist mais ne...aucune leichter Stoff - je serait Dir wirklich plutôt Rolfs variante empfehlen.
mon variante serait warscheinlich Deinen gesammten Programmaufbau jeter - et so richtig Lust cela alles rauszusuchen habe je aussi pas. sur jeden le cas müsstest Du ensuite - si Du cela avec XProfan realisierst - zumindest dans Prozesskommunikation quelque chose firm son, car alles dans einem XProfan-Prozess serait chaque Program arg verlangsamen. |
|
| |
| |
| |
|
|
Jac
de
Lad | bof, je hab dans mon Prog ne Funktion Intranet-Update. là wird im Hintergrund sowieso rien d'autre gemacht, alors ist es égal, si cela Prog pour longtemps braucht ou bien pas. mais wenns wirklich so compliqué ist nehme je entweder wirklich Rolfs variante ou bien verzichte sur qui Funktion (je hab aussi encore ne Internetupdate-Funktion, qui klappt einwandfrei!).
Jac |
|
| |
| Profan² 2.6 bis XProfan 11.1+XPSE+XPIA+XPRR (und irgendwann XIDE)
Core2Duo E8500/T2250, 8192/1024 MB, Radeon HD4850/Radeon XPress 1250, Vista64/XP | 30.01.2006 ▲ |
|
| |
|
(1.521)
Deutsch
English
Français
Español
Italia