XProfan

Español

Jac
de
Lad

¡Hola ihr en el Foro!

Mit FTP() kann Yo sí en Profano Internet agieren. Aber kann Yo auch en el Intranet, also por LAN irgendwie Archivos austauschen? Beziehungsweise de una freigegebenen Ordner Archivos beziehen? En me ha el siempre no 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 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

- Página 1 -

Jac
de
Lad

¡Hola Rolf!

Yo me el LANInc grad veces angeschaut. Naja, así sería lo zwar ir, aber seeeeehr umständlich (meiner Meinung después de jedenfalls). Gibts no ne einfachere Möglichkeit en en Netzwerk-Ordner (also Yo mi en el Netzwerk freigegebene) zuzugreifen? Kennt alguien tal vez ne DLL más o menos? Also el RasOnline.dll es ya bastante prima en el Umgang con Internet aber en el Intranet en me a Casa hats eben no 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 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Rolf
Koch

Geht einfacher:
Kompilieren Marca Separación

CODE 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

Achtung: Beachte el número el Backslashs, el son así wichtig.
Also pass Usted lo simplemente veces a.

29.01.2006 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Jac
de
Lad

Gracias Rolf!

Hm, en el einfachsten Sachen kommt uno veces otra vez no. Heißt el, dass Soy un Netzwerkordner (z.B. //Susi/Profano-Shared) simplemente como una normalen Ordner uso kann? Dann wären todos mi Fragen y Problemas 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 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Rolf
Koch

*lölchen*
sí correcto.
Nur darfst No así:
//Susi/Profano-Shared,
pero así
///Susi/Profano-Shared
angeben.
Natürlich necesario el Pfade entsprechend freigegeben ser.

Rolf

29.01.2006 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Jac
de
Lad

Rolf, du bist el allergrößte!

Das klappt bastante prima. Ne kleine Cuestión kommt me ahora aber todavía: ¿Es posible, el Freigabenamen rauszufinden? Also ///Susi/Profano-Shared (en el Annahme, dass el Prog el no sabe. Und dazu al besten el Arbeitsgruppencomputer y el Arbeitsgruppe. Also así: Zuerst ermittel Yo el Arbeitsgruppen, entonces el angeschlossenen Computer y schließlich el freigegebenen Ordner, el Yo entonces todos para qué De todos modos durchsuchen kann. Weißte Yo mi? Ist el irgendwie posible (sin, dass Yo dir ahora jede Menge Arbeit 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 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Rolf
Koch

kurz ma rápidamente antworten

> Zuerst ermittel Yo el Arbeitsgruppen

Dies macht sí el Laninc.
Mach Dir veces el Mühe y kuck el Usted correcto a.
El es absolut no kompliziert es sí incluso ne Ayuda en *lol*

Rolf

29.01.2006 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Rolf
Koch

si encima el Ejemplo el LANINC zumindest el User herausbekommen hast, así kannst Usted hiermit evtl. weiterarbeiten.
Am Schluss entsteht una Textdatei, con welcher Usted entonces weiterarbeiten kannst.
In dieser Texdatei son todos Freigaben para gewählten Arbeitscomputer.
Kompilieren Marca Separación

declare 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

29.01.2006 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Jac
de
Lad

Sí, nee, also,

is klar, dass el así va, pero yo quería eben verhindern, dass Yo siempre sólo ne temporäre Expediente escribir muss y así. Pensé el va con ner API oder qué en el Art auch!? Yo finde el reichlich umständlich sólo ne temporäre Expediente escribir muss...weißte Yo mi??? Außerdem erscheint me con Sleep bastante unsicher (langsamer/más rápido Rechner). Und qué es si yo ne nichtdeutsche Windows-Versión habe? (Freigegebene Resourcen en...)

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 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

- Página 2 -

Rolf
Koch

stimmt auch otra vez *lol*

veces schauen, qué como todavía hacer kann.
Hast mich sí überzeugt

Rolf

29.01.2006 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Rolf
Koch

grad veces hier al kucken, se aber bastante happig

[...]

Rolf

29.01.2006 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Hm Yo glaub Yo hatte el alles schonmal umgesetzt - also TCPIP-Kommunikation.

Pero kein leichter Stoff - Yo sería Usted wirklich más Rolfs Variante empfehlen.

Mi Variante sería warscheinlich Su gesammten Programmaufbau descartar - y así correcto Lust el alles rauszusuchen Yo auch no. Auf cada Fall müsstest Usted entonces - si el con XProfan realisierst - zumindest en Prozesskommunikation algo firm ser, porque alles en un XProfan-Prozess sería cada Program arg verlangsamen.

29.01.2006 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Jac
de
Lad

Naja, Yo tener en mi Prog ne Función Intranet-Actualización. Como se en el Hintergrund sowieso nichts más gemacht, also es egal, si el Prog dafür largo braucht oder no. Aber wenns wirklich así kompliziert es Aprovecho entweder wirklich Rolfs Variante oder verzichte en el Función (Yo auch o ne- Internetupdate-Función, el 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 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

◄