TCP/FTP/HTTP pour PANORAMIC.

Seul un intérêt pour les programmeurs avancés

TCP / FTP / HTTP pour PANORAMIC

La prudence est toujours Betha !

Télécharger: TCP4PANORAMIC.zip

Merci pour le test (seul FTP sont déjà 1.000 lignes de Panoramic BASIC)

DJ

Gros travail!

Beaucoup d’effort. Je suis dépassé vu que je ne comprends pas.

Après Klaus, nous avons maintenant d.j. peters et Jean Debord. Je suis hors course. Peut-être faudra t-il un volontaire pour expliquer comment utiliser ces programmes, avec une écriture en français.
Salutations
traduction Google:
Great job!

Viel Mühe. Ich bin überwältigt, weil ich nicht verstehe.

Nach Klaus, wir d.j. Debord und Jean Peters. Ich bin aus dem Rennen. Vielleicht wird er freiwillig zu erklären, wie diese Programme, mit dem Schreiben auf Französisch zu verwenden.
Viele Danke!

Very good and interesting programming job

Hello D.J Peters,

Very interesting !!!

I try to connect on machine and i have some problem with the loggin

How can i log on server with username and password ?

for ex:

FTP_SERVER$ = "172.45.1.2" : ' IP adress
FTP_USER$="My name"
FTP_PASSWORD$="Password"
gosub FTPCONNECT

seems doesn't work...

Hello Nardo,

Works the example "FTP02_CWD_LIST_LOG.bas" ?

Code:

' connect as anonymous
FTP_SERVER$  = "ftp.lip6.fr" : '
FTP_USER$    = "anonymous"
FTP_PASSWORD$ = "yourmail@mail.com"
gosub FTPCONNECT

DJ

Hi d.j peters!

Yes FTP02_CWD_LIST_LOG.bas works !
But with Internet Explorer,Firefox or telnet, I can connect on machine via IP address like 172.26.11.42 with username and password.

I changed FTP_SERVER$,FTP_USER$,FTP_DIR$ and FTP_PASSWORD$ in FTP_02_CWD_LIST_LOG.bas and it work this evening...sometimes...
--> 5 fails / 1 ok
and I have no problem of connection with telnet...

Hello Nardo
i can't resolve both addresses you postet

IP$ = "172.26.11.42"
IP$ = "172.45.1.2"

what is the right address ?

It's ok if it's private or a secret.

but i can resolve all working addresses here but not the both you posted.

DJ

you can test it your self
(you need the latest version of TCP4PANORAMIC.zip)

Code:

' host name resolver
#include "TCP_INCLUDE.bas"
dim IP$, Host$
IP$ = "209.85.135.105" : ' google.com
Host$ = string$(256,"|")
' IP$ = "172.26.11.42"
' IP$ = "172.45.1.2"

TCP_IP%  = adr(IP$)
TCP_ADR% = adr(Host$)
gosub TCPHostFromIP

if TCP_RESULT%=0
  message "error: can't resolve " + IP$
else
  message left$(Host$,TCP_RESULT%) 
end_if
end

Thank you for your answer

these address (172.xx.xx.xx) are in local network...

1- I tried connection this morning and it doesn't work
2- I download TCP4PANORAMIC.zip this evening and I tried (via logmein) : it works!

is it normal ?

PS: I haven't TCPHostFromIP in TCP_INCLUDE.bas...

Nardo26 a écrit:

PS: I haven't TCPHostFromIP in TCP_INCLUDE.bas...

d.j.peters a écrit:

you need the latest version of TCP4PANORAMIC.zip...

ok thanks !!!

message supprimé... je n'avais pas vu le 3eme exemple....

Hello D.J Peters,

I Have the message :
Access violation at adress 08EC328D in module 'TCP4PANORAMIC.dll".
Read of address FFFFFFC.

In gosub FTPCONNECT
I add message in TCP_INCLUDE and the problem is:

Code:

TCPCreateClient:
  if MSG_LOG% <> 0 then item_add MSG_LOG%,"call TCPCreateClient("+str$(TCP_ADR%)+","+str$(TCP_PORT%)+")"
  wait 10
  if (TCP_ADR%<1) or (TCP_PORT%<1) then message "ERROR: TCPCreateClient wrong param !"
  TCP_RESULT% = dll_call2("_TCPCreateClient",TCP_ADR%,TCP_PORT%)
  if MSG_LOG% <> 0 then item_add MSG_LOG%,"end_call TCPCreateClient"
  return

I have the msg : "call _TCP_CreateClient(151265248,21)"
but I haven't the msg : "end_call TCP_CreateClient"


In my program :

Code:

  FTP_SERVER$  = "172.26.11.42"
  FTP_USER$    = "root"
  FTP_PASSWORD$ = "root"
  Caption Form_IP%, "Connection..."
  gosub FTPCONNECT

Hello Nardo
i don't get this error here
post your whole code please

if you made changes in one of the include files upload it all in one *.zip file

DJ

Hello DJ Peters !

You can download here my code...

in Log_Analyser_NLIST2.bas line 582

PC Test : Windows XP


in zip file :
Log_Analyser_NLIST2.bas : main program
NLIST.bas : GLIST "light version" (list with graphical attributs)
TCP_INCLUDE.bas with comment
FTP_INCLUDE.bas with comment
example.log : the type of file that I want analyse/download
TCP4Panoramic.dll
Dir Img : directory with bmp (for toolbar)

Nardo

nardo i can't find a button "free download" ?!?
http://www.envoyercefichier.com/files/xODTdKw1286321305.html

DJ

Hello DJ,

try this link : http://www.envoyercefichier.com/files/dETd0GY71286486382.html


[Edit]
I change the prog: Loganalyser2.zip
use this link : http://www.envoyercefichier.com/files/zYoDOQs1286488912.html
in line 615 there are comments...
[/code]

Hello Nardo,
if i setup an FTP server on the same IP i can connect without any problems.
(i used the first download)



if you get FTP_SERVER_DATA messages
that means you are connected on port 21
but your server don't send any FTP_WELCOME message.

you are sure you have an FTP server on PORT 21 running ?
(not TELNET or REMOTE shell)

or you can use "demo" for FTP_SERVER$, FTP_USER$, FTP_PASSWORD$
and change FTP_DIR$ to "/"

this will work too

i added only bar_both MSG_LOG% for the scrolling of FTP log messages.

DJ

Yes, in my office i use LeechFTP (port 21,etc...) and it's ok.
But with my program: no...
And sometimes, the dll call crash...
I don't know why....

if i use your IP as internet IP with my router i can connect but get no welcome message !?!


Is it a local or your WAN IP ?

Don't mix internet IP's with local IP's !

DJ
inside of FTPCONNECT:

Code:

' get message from FTP server
  FTP_TIMEOUT% = 1000 : gosub CC_WAITMSG
  if FTP_LEN% = 0
    message "connected but no WELCOME message!"
    gosub FTPDisconnect
    FTP_MSG$ = "ERROR: in FTPConnect timeout!"
    if MSG_LOG% <> 0 then item_add MSG_LOG%,FTP_MSG$
    return
  end_if

same message "no welcome" if i use any FTP client.

DJ

In my office it's a local network.
I can connect on the machine with leechFtp, Firefox, internet explorer... but not with the dll

In my home :
For the test, I use an FTP server (FileZilla)
I can connect on server but the download doesn't work : the File size is not ok




[Edit] I modify FTP_INCLUDE.bas (add message) and i try tomorrow at my office...


At home I have these messages:

CMD: RETR pacman.bas|<CR><LF>
call TCPServerData(344)
call TCPServerData(344)
MSG: 150 Connection accepted|<CR><LF>226 Transfer OK<CR><LF>
MSG: retrieve 'pacman.bas' save as 'pacman.bas' 1 bytes.
call TCPServerData(552)
MSG: 'RETR' 0 bytes transfered in 0.008 seconds.
call TCPDeleteClient
call TCPServerData(344)
call TCPServerData(344)
call TCPServerData(344)
call TCPServerData(344)

[/Edit]

All my tests with internet servers works so far.
May be your server use different file size decoding.

So far i know the number of bytes are transfered inside of "(size)"

but i don't know is it the only one

in FTPRETR: add this line and post the result

Code:

...
  ' get file size from last message
 ' !!! add this line !!!
  MSG_LOG% <> 0 then item_add MSG_LOG%,"get file size: " + FTP_MSG$

  FTP_1$  = ""
  FTP_P%  = instr(FTP_MSG$,"(") : FTP_P%  = FTP_P%  + 1
  FTP_LEN% = instr(FTP_MSG$,")") : FTP_LEN% = FTP_LEN% - 1
  for FTP_I% = FTP_P% to FTP_LEN%
 ...

DJ

Hello DJ !

Here the result at my office :
Office.jpg
I don't know why it doesn't work...
I retry this morning via logmein and i'll post the result...


and in my home the screen capture here and the MSG log ( MSG_log.txt)

The size of the file after RETR : 1 byte

The filezilla server don't send the file size inside of message 150 (size)!
This can't work with the current FTP_INCLUDE.bas file.

If i get time i will see what i can do to solve this.

May be i must do

while serverdata and no time_out
get new data
save new data in file
end_while

I don't know why FileZilla server don't send the file size before the transfer starts.

It's mutch better if an server gives you this most important information.

How you will know is the file completly transfered or interrupted ?

One complex way are retreive the file directory parse the file size and start the download :-(

DJ

Nardo, i got it.
download link are the same.

DJ