gömülü dosyaya yazma

[semenderip]

iyi günler arkadaşlar sorum şöle gömdüğüm res dosyasının içinde bir exe var ve exede sadece bir buton ve bir memo var ben bu gömülü dosya içindeki memoya diger programdan yazı yazmak istiyorum ana programada bir memo koydum ama içine gömdüğüm programdaki memoya kayıt yapamadım bunu nasıl yapabilirim şimdiden sagolun

[semenderip]

arkadaşlar lütfen yardım

[sabanakman]

Söylediğin olayı kendim yapmak zorunda olsam başka bir yola başvurmayı tercih ederdim (tabi bu tercih meselesidir) .

[semenderip]

başka bir çözüm yolu nasıl oluyor
ayrıyeten yapan çok kişi var ama nasıl yapılıyor ortaya sunan yok

[sabanakman]

Sorduğun soruya cevap verebilecek teknik bilgim yoktur ama çözmeye çalıştığınız problem tam olarak nedir onu bilmek gerek. Belki bu işi başka yöntemle çözmek mümkün olabilir.

Mesela .exe içine gömülü dosya aldığı bir parametre ile açılışta bir dosyadan yükleme yapar şekilde yazılır ve sonra o dosya çıkartıp çalıştırılırken önce alacağı değer bir dosya ya yazılır ve sonra o dosya adı parametre verilerek çalıştırılabilir gibi.

[Trial_Cooder]

tam olarak amacını söyle yardımcı olmaya çalışiyim

[Trial_Cooder]

Gömülü Dosyayı Yerine, Dosyayı Dışarı Çıkartıp Editlemek İçin;


ExeMod.pas ve ExeMod.dcu İndir Project Dosyanın Yanına Koy Ve
Project1.dpr'i Editleyince Son Şekil'i Şöyle Olması Lazım;

Kod: Tümünü seç

program Project1;

uses
  Forms,
  Unit1 in 'Unit1.pas' {Form1},
  ExeMod in 'Unit\ExeMod.pas';

{$R *.res}

begin
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Application.Run;
end.

Ve Uses'a "ExeMod" Ekle, Sonra

Bir Button Koy Ve OnClick'ine

Kod: Tümünü seç

InsOrReplaceInFile('ADegiskeni', 'Server.exe' 'exeye yazdırılacak yazı);

Yaz

Bu Kod Oluşan Exe'ye (Önceden Oluşturmuş Olman Gerek) "ADegiskeni" Adında String Yerleştirir.

Oluşan Exe'de Bunu Görmek İçin

Kod: Tümünü seç

ExtractFromExe('ADegiskeni', Edit1.Text);

[semenderip]

cevaplarınız için cok teşekkürler ben sadece gömülü olan dosyadaki memoya programın içinden bişeyler yazmak istiyorum daha acık anlatayım iki exe oluşturduk ve birini birinin içine res dosyasıyla gömdük iki projedede memo1 var ana exenin memosuna örnegin delphi yazdım bu yazıyı gömülü olan exenin memosuna yazacak ve dışarı atacak ben dışarı cıkarma işlemini yaptım ama memoya yazmayı beceremedim sorunum bu cıkmadan yazmak istiyorum teşekkürler

[sabanakman]

Zaten Trial_Cooder gerekli açıklamayı yapmış. Bknz: viewtopic.php?t=14882&start=0&postdays= ... highlight=

[semenderip]

teşekkür ederim yalnız bu kısmda hata veriyor dediğiniz gibi exemodu yükledim projenin oldugu dizinede ekledim gereken herşeyi yaptuım ama bu komut hata veriyor InsOrReplaceInFile trial coder nasıl görüşebiliriz arkadaşım
Sayın adminler neden kimseye özel mesaj atamıyorum

[Trial_Cooder]

Exemod.pas Ve Exemod.dcu Dosyalarını Dizine Kopyala,
View Source'a " ExeMod in 'ExeMod.pas' " Ekle,
Uses'a "Exemod" Ekle.
Olacaktır

[semenderip]

bende onu diyoru işte gereken herşeyi ekledim yaptım ama InsOrReplaceInFile hata veriyor ben buraya bir open dialog koyup yaptım o zaman çalışıyor ama bu sefer exeyi sen seciyon çıkardıgı exeyi kendi bulması için ne yapmalıyım verdigniz kod sizde dediginiz gibi çalışıyormu ufak bir örneginiz varmı teşekkürler

[mrmarman]

- (X).EXE dosyasına (Y).EXE dosyasını gömdünüz diyelim. @semenderip ısrarla (Y).EXE dosyasını extract edicem ve çalıştırıcam çalıştırdığımdan bu (Y).EXE dosyasının fomundaki MEMO'ya bişeyler yazıcam diyor.

- (Y).EXE çalıştığından illaki dışardan bir ifade eklenecekse, bu eklenecek ifadeyi geçici bir TEMP.TXT dosyasına koyun, (Y).EXE'nin formunun onCreate olayında bu yeri ve yurdu belli TEMP.TXT dosyasından otomatik olarak LOADFROMFILE yapılarak okunmuş olsun. Sonra da bu TEXT dosya (Y).EXE tarafından silinsin. İşlem bu kadar basit aslında...

// EDIT // @sabanakman zaten bu metodu önermiş... Kaçırmışım...

[Trial_Cooder]

Kod: Tümünü seç

InsOrReplaceInFile('Log', 'Server.exe', Edit1.Text);

Burdaki "Server.exe" senin belirlediğin exe. Log, replace'i tutacağın string, Edit1.Text ise exe ye replace edeceğin değer.


kolay gelsin