Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Providers
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 08-10-2013
mjjj mjjj is offline
Miembro
 
Registrado: mar 2007
Posts: 652
Poder: 18
mjjj Va por buen camino
DataSnap con Imagenes

Estimados,
estoy trabajando en un proyecto de tres capas, para ser implementado en dispositivos móviles.
Entiendo que la tecnología DataSnap me podrá facilitar las cosas al momento de conectarme de forma remota al servidor ¿que otras tecnología podría utilizar?

El punto principal de este hilo es preguntarles a los grandes gurus, como puedo almacenar y cargar una desde un cliente pasando por un servidor DataSnap una imagen, ya sea en un servidor FTP, como en una base de dato.

He intentado con este procedimiento, pero solo me guarda los campos usuario, y fecha, el campo imagen queda en blanco.
Código Delphi [-]
procedure TServerMethods1.insert_imagen(imagen: TStream; usuario: integer);
begin
  with ibsql1 do
  begin
    transaction.Active := true;;
    close;
    sql.clear;
    sql.add('insert into imagenes (usuario, imagen, fecha)');
    sql.add('values (:usuario, :imagen, current_timestamp)');
    ParamByName('imagen').LoadFromStream(imagen);
    ParamByName('usuario').asinteger :=usuario;
    execquery;
    transaction.CommitRetaining;
  end;
end;

y lo llamo desde el cliente con esto, en donde image1 (TImage) tiene previamente una imagen cargada.

Código Delphi [-]
procedure TForm2.Button4Click(Sender: TObject);
var
  stream : Tmemorystream;
  myServer : TServerMethods1Client;
begin
if SQLConnection1.Connected then
  myServer := TServerMethods1Client.Create(SQLConnection1.DBXConnection);
    try

    stream := TMemoryStream.Create;
    image1.Picture.Bitmap.SaveToStream(stream);
    myServer.insert_imagen(stream, 10);

  finally
    stream.free;
    myServer.Free;  //free up the server
  end;
end;

Que podrá ser ??
Alguna idea ??
Responder Con Cita
  #2  
Antiguo 08-10-2013
Avatar de Neftali [Germán.Estévez]
Neftali [Germán.Estévez] Neftali [Germán.Estévez] is offline
[becario]
 
Registrado: jul 2004
Ubicación: Barcelona - España
Posts: 18.233
Poder: 10
Neftali [Germán.Estévez] Es un diamante en brutoNeftali [Germán.Estévez] Es un diamante en brutoNeftali [Germán.Estévez] Es un diamante en bruto
Revisa esta entrada del blog de Salvador; Aquí la segunda parte. Se trata del tema.

Cito:
"Según me comentaba, el intento de obtener una imagen desde un servidor de DataSnap y mostrarla en la parte cliente, era lo que en ese momento le estaba dando problemas, por lo que, tras cruzar varios correos con él, decidí preparar un pequeño ejemplo en el que lo pudiera ver y entender con algo mas de detalle, tomando como guía aquella entrada del seminario.
Así que estas lineas responden un poco a esa motivación, pensando que otros compañeros puedan albergar dudas similares y pueda ser de ayuda su lectura..."
__________________
Germán Estévez => Web/Blog
Guía de estilo, Guía alternativa
Utiliza TAG's en tus mensajes.
Contactar con el Clubdelphi

P.D: Más tiempo dedicado a la pregunta=Mejores respuestas.
Responder Con Cita
Respuesta


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Datasnap CallBack ASAPLTDA Debates 6 23-01-2014 22:55:18
DataSnap y XML rchavezh Providers 5 12-07-2013 23:23:15
DataSnap o LAMP Chris Debates 70 24-07-2012 19:42:48
datasnap jgutti Varios 1 23-12-2011 15:25:20
Tstrings en datasnap juank1971 Conexión con bases de datos 4 25-05-2011 22:31:40


La franja horaria es GMT +2. Ahora son las 17:37:13.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi