SoloCodigo

Gracias por tu respuesta krlos02. La verdad es que lo que te pasa es muy raro.

Un cordial saludo
-Acalanto-

Pues krlos, si al server le llega la petición de conexión no entiendo porqué no funciona ??

Sinceramente se me ha acabado la ciencia..

Un cordial saludo
-acalanto-

Estimado amigo krlos, Porqué no compruebas la configuración de la red, estoy consultándo en mis libros y apuntes y me parece que el problema de tu nueva red es que tiene direcciones de 128 bits y a pesar de que el protocolo sea el mismo (TCP/IP), las familias son diferentes ya que los encabezados e identificadores de los paquetes de datos que circulan por la red son igualmente diferentes, es decir, el paquete que tu envías seguramente es de 32 bits y si el protocolo de la nueva red es TCP/IP IPV6, no sabe ni de donde viene ni a quien se lo tiene que entregar, es como consuiltar un callejero que no tiene nombres de calles ni números.

No se en que más puedo ayudarte.
Un cordial saludo
-acalanto-

No se si lo que te comento te puede ayudar.

Omito como guardar una imagen en una línea o registro de la base de datos ya que según dices esto lo hace bien.

Creo que puedes insertar un campo más en la tabla o fichero tipo MEMO sobre el que puedes actualizar todo aquello que has escrito o dibujado sobre la imagen, es decir, en un campo tienes el mapa de bits y en otro los comandos P ej.

Linea[10,20,40,60]
Texto[100,200,'Texto en imagen']
icono[50,30,c:iconoscamión.ico]

y así sucesivamente todo lo que se te ocurra.

Tendrás que implementar un intérprete de comandos que haga posible transformaar estos mandatos en lineas, textos, circulos, sopots etcetc sonbre la imagen, no se algo parecido a esto.


Public Sub Blinker(pictObject as object, macro as string)

dim comandos as variant
comandos=split(macro,";")

dim i as long
for i=lbound(comandos,1) to ubound(comandos,1)

select case lcase(left(comandos,instr(comandos,"[")-1)

case "linea"
'extraer las coordenadas de la línea de los corchetes y dibujarla a escala sobre la imagen
case "texto"
'idem texto
case "icono"
idem icono
end select


Desde luego el desarrollo es más complejo de lo que te escribo ya que si además quieres medir con la precisión de la foto deberás obligatoriamente de realizar un giro, traslación y homotecia de las coordenadas del panel, pero por aquí seguramente van los tiros....

Un saludo
-acalanto-

end sub

A que cosa te refieres con direcciones. Son direcciones IP ?

Si fueses un ppoco más explícito a lo mejor te podemos dar algún tipo de ayuda ?

Te refieres a direcciones compatibles de ipv4 con ipv6 ? P. Ej. 172.15.20.35/96

Aclara algo más por favor..

Un saludo
-Acalanto-

Este código es de una aplicación y hace exactamente lo que necesitas.

Un saludo
-Acalanto-


Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
    On Local Error Resume Next
    Select Case KeyCode
        Case 8
                    KeyCode = 8
        Case 110
                    If Chr(DecChar) = "," Then KeyCode = 188 Else KeyCode = 110
        Case 188
                    If Chr(DecChar) = "," Then KeyCode = 188 Else KeyCode = 110
        Case 13
                    KeyCode = 13
        Case 107
                    KeyCode = 107
        Case 109
                    KeyCode = 109
        Case 0 To 47
                    KeyCode = 0
        Case 58 To 95
                    KeyCode = 0
        Case Is > 105
                    KeyCode = 0
    End Select
End Sub

Gracias Chiaravel. Le echaremos un vistazo.

Un saludo
-Acalanto-

Yo sólo he encontrado una solución a este problema lo cual no quere decir que existan otras.

Primer Paso: Determinar el tipo de separador decimal que tiene configurado el Sistema Operativo. (Puedes hacerlo con un format de cualquier valor decimal y analizar si pone '.' o ',')

En los formularios selecciona KeyPreview a TRUE y en el evento KeyDown puedes captar si han tocado el punto decimal o la coma y cambiarlo de acuerdo a la necesidad de cada momento.

Es un poco engorroso pero funciona y es la única forma en la que puedo tratar tan penosa deficiencia en los objetos de Microsoft.

Espero que te resulte útil.

Un saludo
-Acalanto-

Creo que JKim tiene razón y el origen del error se encuentre en el propio Sistema operativo ante lo que no existe otra posibilidad que volver a Reinstalar (Mejor formateando). Este problema me lo encontré en unas aulas de informática en las que tras Instalar-Desinstalar aplicaciones reiteradamente, Windows se 'LIABA' y daba este error con cualquier aplicación..

Formatea (Si lo tienes claro) y verás que se te acaba el problema.

Un saludo
-Acalanto-

NOTA: en dichas aulas optamos por instalar Windows limpio, aplicaciones, configurar el equipo y sacar un espejo con Norton Ghost (Nos fué realmente bien para relimpiar equipos)

No se si te refieres a ajustes polinómicos de Bezzier... o tú conoces el polinomio y deseas formar ecuaciones y resolverlas por determinantes ??

Los datos son vectores o segmentos de recta ??

La curva tiene máximos y mínimos o es monótona ??

Si detallas algo más a lo mejor te podemos ayudar.

Estoy de acuerdo con Brozz. Puedes almacenar las fotos en una carpeta y referenciar el nombre del fichero en una base de datos (para que no te consuma espacio (400*4*30 = 48 MB diarios en foos), para hacer el reporte en un DINA 4 haz lo siguiente:

const WidthPhoto=40
const HeighPhoto=40

Dim pic As Picture
dim i as integer
dim actX
dim ActY
On Local Error Resume Next
'Ajustar escalas
printer.scale(0,0)-(290,210) 'DINA 4 apaisado
printer.orientation=vblandscape
actX=10
ActY=10
'Poner las imágenes en el panel impresora
for i = 1 to totalimagenesdia
Set pic = LoadPicture(PathImagen(i))
printer.PaintPicture pic, actx, acty,widthphoto, heighphoto
actX=actX+5+widthphoto
if actX > printer.scalewidth then
actX=10:actY=actY+5+heightphoto
end if
if activeY>printer.scaleheight then
actY=10
printer.NewPage
end if
next i

Debes comprender que este código es completo pero orientativo. Deberás hacer priuebas y ajustar escalas y tamaños de las forots.

Un saludo
-Acalanto-

Estimado compañero "COLABORADOR"

Inserte un post con el único objetivo de calmar los ánimos y razonar si merece la pena desperdiciar
nuestros limitadísimos conocimientos en dar respuesta a tus impertinencias, creo, a pesar de todo, que
mereces una respuesta ajustada a tus comentarios.

Permiteme pedirte antes de nada disculpas por mi torpeza narrativa, no pretendía que fueses el cerdo
risguroso y responsable, sino el lobo maligno que sueña con  adueñarse de la casa de los pobres cerditos
ignorantes, y chuparles la sangre hasta alli donde le resulte posible (o creible en este caso).

He visitado el foro que tan a 'bombo y platillo' promocionas en el que he tenido la oportunidad de comprobar
el elvado nivel del que presumes....

En el foro de VB tengo la sensación de que el 50% de las consultas provienen de usuarios de este foro que, al no encontrar
la solución 'llave en mano', prueban suerte en el vuestro (Cosa que no critico pro no comparto).

Como veo que eres de aquellas personas que documentan sus críticas te paso unos datos que, de no haber cambiado en
los últimos minutos, seguiran siendo correctos.

FORO VB: Teneís 18 consultas de las cuales 12 no tienen respuesta alguna (66,666%). Las otras 6 (33,333%) no dicen prácticamente nada.

FORO C++: 3 post insertados por un moderador de C++ que cuestiona donde bajarse PowerBuilder de Borland, como usar lso operadores in:out (o << >> como prefieras)
como se puede insertar desde C++ la hora de sistema en una base de datos y un invitado que solicita como puede utilizar  gráficos
en windows con C++ 3.1 (Supongo que la versión de Borland C++ + Applcations Frameworks que genera código para DOS y para Windows).

!! Impresionantes cifras !!, no te parece....

Mira  estimado OBSERVADOR, me gustaría proponerte algo sin que por ello nos debamos de sentir ofendidas ninguna de las partes.

a) Dejar de una vez esta discusión (Ofende el que puede, no el que quiere).
b) Dedicate a tus asuntos y dejanos que nosotros poco a poco, aprendamos hasta llegar a tu nivel.
c) Llévate a tu foro a todos aquellos que no se dignan a contestar.
d) Si algún día necesitamos ayuda un foro de otro nos ponemos en contacto de forma franca y amigable. es decir.

1) No dudes en contactar si os encontraís necesitados de obtener orientación sobre:
Manejo de OS a bajo nivel
Bases de datos
Algorítmia
Métrica 3
Registro Windows
Aplicaciones Cliente/Servidor
Comunicaciones
Simulación de Resistencia de Materiales
Elementos discretos
Elementos finitos
Cálculo Estructuras
Resitencia de Materiales
Geología
Geometría Analítica
Regresiónes y ajustes (Least Squares)
Métodos de ordenación de lilstas
Métodos de compresión de datos
Encriptación (especialidad Hauffmann)
<Muchos integrantes de este foro tienen algunos conociemientos de las materias relacionadas)

2) Nosotros nos pondremos en contacto con vosotros si nos encontramos necesitados de:
Apropiarnos de lo ajeno
Romper claves(Fuerza bruta)
crackear aplicaciones
piratear .... etc etc etc..


Por favor, déjanos disfrutar en paz de nuestros escasos conocimientos y vete con tu música a otra parte en la que te sientas mayormente
a gusto con tu elevadisimo nivel de pedantería.

HASTA NUNCA...COMPAÑERO  -_--_-