Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   C++ Builder (https://www.clubdelphi.com/foros/forumdisplay.php?f=13)
-   -   Ayuda con Programa en C++ (https://www.clubdelphi.com/foros/showthread.php?t=61118)

yelian 26-10-2008 18:43:51

Ayuda con Programa en C++
 
Necesito que me ayuden a terminar una aplicación que estoy haciendo en C++, la duda que tengo es que no se como mostrar en un Memo el contenido de un txt,

si me ayudaran se los agrade seria mucho, disculpen la ignorancia es que soy nuevo en esto del mundo de la programación, si hago alguna pregunta tonta me disculpan lo que pasa es que los novatos somos así.

Después pongo mas dudas que tengo sobre la aplicación que estoy haciendo gracias de ante mano.

coso 26-10-2008 18:58:08

hola, con
Código:

Memo1->Lines->LoadFromFile("c:\fichero");
deberia funcionarte. saludos

yelian 26-10-2008 20:00:26

gracias
 
Gracias me funciono a la perfeccion, pero si no fuera mucha molestia me gustaria que me explicara el code para ver como funciona, asi tengo alguna idea de como funciona.

Muchas gracias por la ayuda ...

coso 26-10-2008 20:01:51

no hay mucho secreto. Es un metodo de la clase TStrings el cual carga un fichero de texto. Te recomiendo que le eches un vistazo a la ayuda en linea. saludos.

coso 26-10-2008 20:04:07

echandole un vistazo a 'classes.pas', donde se encuentra la definicion de esta clase (en Delphi, en C++ sera equivalente):

Código Delphi [-]
procedure TStrings.LoadFromFile(const FileName: string);
var
  Stream: TStream;
begin
  Stream := TFileStream.Create(FileName, fmOpenRead or fmShareDenyWrite);
  try
    LoadFromStream(Stream);
  finally
    Stream.Free;
  end;
end;
procedure TStrings.LoadFromStream(Stream: TStream);
var
  Size: Integer;
  S: string;
begin
  BeginUpdate;
  try
    Size := Stream.Size - Stream.Position;
    SetString(S, nil, Size);
    Stream.Read(Pointer(S)^, Size);
    SetTextStr(S);
  finally
    EndUpdate;
  end;
end;

yelian 26-10-2008 20:58:51

Disculpa pero no se mucho sobre Delphi me gustaría que las aclaraciones fue eran en el Lenguaje de C++, y acuérdate de que no se tanto de C++, soy un novato en esto de la programación ...

gracias por ayudarme y disculpe la molestia

coso 26-10-2008 21:10:45

bueno, en C++ sigue siendo lo mismo: loadfromfile es un metodo implementado en la clase TStrings para cargar lineas de texto. Echale un vistazo a classes.cpp y busca LoadFromFile, y tendras el equivalente de lo que te he puesto. Saludos.

escafandra 27-10-2008 07:27:50

Una pequeña aclaración yelian,la clase TString, como todas las clases VCL, están originalmente programadas en delphi, por lo que el código fuente está en delphi. Builder es capaz de compilar delphi.

Símplemenmte quédate, de momento, con la explicación que te da coso.

Saludos.

yelian 28-10-2008 00:33:44

Gracias por la aclaracion anteriol, lo que me doy cuenta de que tengo que seguir estudiando los tutoriales de C++ que tengo...

Pero bueno tengo otra inquietud ...
La idea es guardar un texto tecleado en un Memo en un archivo (txt)
yo por mi parte lo e echo así, pero bueno si ustedes tienen otro metodo mas facil de hacerlo diganmelo y claro si tengo algun Error me lo aclaran

Code:
string guardar;
guardar=Memo1->Text.c_str();
ofstream fSalida ("c:\salva.txt");
fSalida<<guardar;
fSalida.close();

gracias de antemano por la colaboracion...

escafandra 28-10-2008 07:19:41

Código:

bool Escribe(){
  String guardar;
  guardar=Memo1->Text.c_str();
  ofstream fSalida("d:\\salva.txt", ios::trunc);
  if(fSalida.fail()){
    return false;
  }
  fSalida << guardar.c_str();
  fSalida.close();
  return true;
}

Saludos.

yelian 30-10-2008 02:23:39

Gracias por el aporte anterior me fue util pero tengo un problemita, cuando guardo lo que e escrito, entre linia y linea me deja una linea en blanco,
Si presiono el boton de guardar varias veses me deja multiples lineas en blanco, y no se que hacer si pudieran darme una mano en eso como es de costumbre se lo agradeceria mucho...

escafandra 30-10-2008 17:31:24

¿Puedes poner algo de tu código?;)

Saludos.

yelian 30-10-2008 23:58:29

Bueno aquí les dejo una parte resumida de mi code, la idea de esta aplicacion que estoy haciendo es de poder visualizar un fichero (txt) y tambien poderlo modificar y guardar sus cambios , esto se puede hacer muy facil desde el explorer pero lo que quiero es que no se vea que fichero es el que se esta mostrando...

- Antes de nada creamos este archivo "D:\Datos.txt".
- En un Form insertamos un Memo y dos Botone uno=(Abrir Fichero) y el otro=(Guardar) ,
- En el primer Boton (Abrir Fichero) va este code-

Button1:
--------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
Memo->Lines->LoadFromFile("D:\Datos.txt");
}

Button2:
--------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
string guardar;
guardar=Memo->Text.c_str();
ofstream fSalida ("D:\Datos.txt");
fSalida<<guardar;
fSalida.close();
}


*** Para que vean el problema que tengo, abran el archivo, escriban cualquier cosa en el y presionen varias veses el boton de Guardar y despues vuelban a abrirlo para que ustedes vean que entre linea y linea deja multiples espacios en blanco, como se puede solucional este problema si alguien sabe diganmelo....


yelian 31-10-2008 00:09:15

Bueno mira probe este code para el Button2 pero me sige haciendo lo mismo, no se que pueda ser

Code:

ofstream fSalida ("D:\Datos.txt");
fSalida<< Memo->Text.c_str();
fSalida.close();

escafandra 31-10-2008 01:37:48

Bueno, veo errores en el código. La ruta debes ponerla así:
"D:\\Datos.txt" con "doble barra".

En C, los archivos guardados en modo texto se les añade un retorno de carro y otro de línea \r\n. El TMemo está dividido en líneas, por lo tanto se incluyen \r\n nuevos al leer el archivo con el sistema fstream (que por defecto lee en modo texto)

Puedes utilizar para salvar el Memo:
Código:

void __fastcall TForm1::Button2Click(TObject *Sender)
{
  Memo->Lines->SaveToFile("D:\\Datos.txt");
}

Te funcionará como quieres.

Otra opción de guardar puede ser:
Código:

void __fastcall TForm1::Button2Click(TObject *Sender)
{
  ofstream fSalida ("D:\\Datos.txt", ios::binary);
  fSalida<< Memo->Text.c_str();
  fSalida.close();
}

También te funcionará como quieres.

Saludos.;)

yelian 03-11-2008 16:30:04

Muchas Gracias escafandra las solución para lo que estoy haciendo es

Memo1->Lines->SaveToFile("D:\Datos.txt");

después planteo otra duda que tengo,

gracias por la ayuda

yelian 04-11-2008 14:28:10

Buenas para todos los del Foros estoy aquí de nuevo con mis dudas.
El problema que tengo es que no se como voy a hacer para cuando doy Enter se ejecute la acción de un botón,

Aclaracion:
Tengo un Form con un Edit y un Button la idea es de cuando presione Enter fuera como si estuviera dandole clic al Boton.

coso 04-11-2008 14:38:14

Hola, antes que nada lo mejor seria que cada nueva pregunta te fuera en un nuevo hilo (esta pregunta solo la veriamos escafandra y yo, por ejemplo). Si pones default a true lo solucionas. Saludos.

Lepe 04-11-2008 15:35:01

Al ponerlo como default cerrará la ventana al mismo tiempo, si no quieres ese efecto, en el onkeyUp del TEdit, puedes llamar al evento del clic.

Código Delphi [-]
if key = vk_return then
   button1.Click;

Edito: Ejem, ustedes lo traducen a C++ fale? :o

Saludos

coso 04-11-2008 15:36:29

esto...no la cierra. Sólo si tiene modalresult <> mrNone y es llamada por showmodal ;)

PD: ya de paso, si quieres el mismo efecto con Escape, puedes poner Cancel a true. saludos.

yelian 06-11-2008 23:40:48

Buenos disculpen pero no entendí nada del códe anterior,
si me pudieran explicar un poco mejor me seria útil.

Buenos miren lo que quiero hacer es lo siguiente...

Tengo un Edit (Edit1) donde se debe de poner un nombre y un botón (Aceptar) para que cuando le demos me guarde el nombre que teclearon, ya lo de guardar lo ise pero lo que quiero es que cuando tecleen el nombre no sea preciso dar en el botón solo presionamos ENTRER y ya esta...

Muchas gracias por la Ayuda

coso 06-11-2008 23:42:49

Si. La propiedad 'default' de los TButtons hace que si se pulsa enter en cualquier momento dentro del formulario, se ejecute el 'click' del boton. Algo parecido con la propiedad 'cancel', solo que lo activa la tecla 'escape'. Si lo que quieres es cerrar la ventana, si esta se ha llamado con ShowModal, entonces solo tienes que poner la propiedad ModalResult del Button a algo diferente de mrNone.

yelian 06-11-2008 23:59:17

Muchas gracias por la ayuda coso,
Me funciono a la Perfeccion lo de el boton (Aceptar) y la tecla Enter,
pero no entiendo lo del Escape, eso pudiera utilizarlo cuando esta el programa en ejecucion si presiono Escape me cierra el programa, si pudiera ser eso me gustaria que me pusieras un Ejemplo de como utilizarlo... gracias

coso 07-11-2008 00:01:34

por ejemplo, si quieres q un codigo se te ejecute al pulsar escape, entonces pones su propiedad 'cancel' a true. Es util por ejemplo para cerrar ventanas de dialogo con un simple escape sin tener que usar el raton. Mira la ayuda F1, encontraras mas informacion. saludos.

yelian 07-11-2008 00:22:00

Muchas gracias el codico ya me esta funcionando a la perfección gracias a ustedes...
Si encuentro otras duda que tenga mientras perfecciono el programa la planteo...

muchas gracias...

yelian 12-11-2008 01:52:27

Hola a todos de nuevo, ahora tengo otra duda lo que pasa es que no se como encriptar un texto, lo e visto en otros temas pero no lo entiendo muy bien, lo que yo quiero hacer es cifrar una contraseña que teclea el usuario,

Ejemplo:

- Tengo un Edit y un Button
- Para inicial mi aplicacion es necesario introducir un password en el Edit
- Cuando le doy al botton me decifre el password guardado en un txt y compare el resultado con el que el usuario tecleo si es igual entra al programa sino muestra un Mesage de Error...

* Yo ya tengo ello lo de la comparacion pero no se como cifrar y decifrar el texto si me pudieran ayudar se lo agradeseria mucho...

coso 12-11-2008 10:08:15

Hola de nuevo. Esta pregunta debe ir en un hilo nuevo. Si miras en la seccion trucos o usas el buscador del foro encontraras varios ejemplos. saludos.

yelian 13-11-2008 00:39:55

Gracias los buscare

yelian 13-11-2008 01:05:08

Trate de buscar mi duda en el Buscador pero no tengo acceso a la paguina que va despues que tu pones buscar...
bueno tratare de poner mi duda en otro Hilo para ver si la puedo solucional que ustedes me dicen .

escafandra 13-11-2008 01:08:40

Hola yelian, como dice coso los métodos para encriptar son numerosos y los puedes encontrar en este foro y en la web. Si lo que deseas es un método simple, puedes usar un algoritmo xor que es simétrico.

Te dejo aquí una muestra de una rutina simple pero eficaz de encriptación XOR de 64 bits que permite encriptaciones parciales aditivas, es decir encriptar, por ejemplo, un fichero grande a medida eque se escribe por partes en el disco....

Saludos.

yelian 13-11-2008 23:14:48

Gracias por la ayuda,
aaa y lo que dije que no tenia acceso al buscador no es sierto es el explorador mio que tenia problema, pero ya lo solucione, pienso buscar bastante sobre este tema que me gusta...

yelian 13-11-2008 23:20:21

escafandra si no te es molestia de explicarme un poco sobre el ejemplo que me pusiste, lo que pasa es que tengo algunas duda sobre ese metodo de encriptacion XOR que me pusiste antreriol....

gracias de antemano.

escafandra 14-11-2008 14:44:32

Bueno, no es dificil de usar.
1º Define un buffer, puede ser con un contenide texto o binario.
2º Define una clave.
3º Encríptalo.

Código:

char Buffer[] = "Este texto se va a encriptar."
DWORD Clave = 0x76349714; 
Crypt(Buffer, l, (char*)&Clave, 0);  // Encripta el Buffer

Si quieres hacerlo por partes, para escribir en un archivo...., cada parte:

Siendo HFile el manejador de un fichero abierto y
int WritePos lo ya escrito en el fichero

Código:

HFile = open(FileName.c_str(), O_CREAT | O_WRONLY | O_BINARY);
.
.
.
if(HFile)
if(WritePos < Text.Length()){
    int Mod = WritePos%8;
    int l = Text.Length()-WritePos;
    BYTE *buffer = new BYTE[l+1];
    buffer[l] = 0;
    strcpy((char*)buffer, Text.c_str()+WritePos); // Hacemos una copia
    Crypt(buffer, l, (char*)&Clave, Mod);        // Encripta el buffer
    write(HFile, buffer, l);
    WritePos  += l;
    delete buffer;
}

El resultado, es binario, no es texto, por lo que se guardará en un archivo abierto en modo binario.

El buffer pasado como puntero se encriptam, por lo que si lo que se quiere en encriptar una copia y retener el original, deberá hacerse la misma antes de llamar a la función, y pasarle el puntero adecuado.

Experimenta.

Saludos.

escafandra 14-11-2008 22:48:47

Ahora te explico un poco el algoritmo que he usado:

La encriptación Xor es fácil de implementar y es simétrica. La misma función y la misma clave sirven para encriptar y desencriptar.

Se basa en hacer una operación binaria XOR entre un dato y una clave. Piensa en este ejemplo binario:

Dato = 10001000
Clave = 01000100
10001000 XOR 01000100 = 11001100; Dato Encriptado
11001100 XOR 01000100 = 10001000; Dato Desencriptado

si ampliamos el nº de bits tendremos una operación XOR mas amplia... Esta rutina lo amplia a 8*8 = 64 bits.
Código:

void
Crypt(void *Source, int Size, char* Clave, int Mod)
{
  BYTE *source = (BYTE*)Source;  // Convierto el puntero Source a BYTE*
  BYTE clave[8];                // Reservo para Clave 8 BYTES
  int lClave = strlen(Clave);    // Encuentro el tamaño de la clave si es una cadena
  for(int n=0; n<8; n++)        // Fuerzo a que la clave sea de 8 bytes máximo
    clave[n] = Clave[n%lClave];

  for(int n=0; n<Size; n++, Mod++){
    source[n] ^= clave[Mod%8];  // Encripta hasta conseguir hacerlo con 8 bytes
                                  // que es el tamaño establecido para la clave....
                                  // ^ Es el operador XOR en C
  }
}

Espero que así lo entiendas mejor.
Experimenta.

Saludos.

yelian 15-11-2008 01:37:57

Gracias por la pasiencia y la explicacion seguro que experimentare, despues les cuento como me fue

* si no les vuelvo a escribir es que se me exploto el celebro... (Broma)



Muchas Gracias por la ayuda....


La franja horaria es GMT +2. Ahora son las 20:04:44.

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