افزودن به ابتدای فایل

[lord_viper]

با مثال دلفی مشکل نداری؟
(اگه نداری مثال دلفی بزارم)

[Scorpion]

نمن بیسیک میخوام
اما اگر دلفیش ساده هست بزار
بزار ببینیم

[lord_viper]

جناب scorpion کاری که شما میخواهید انجام بدین با کار یه binder یکی هست تو سایت سورس binder هست میتونین ازش استفاده کنین

کد مربوط به editserver

کد:

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    OpenDialog1: TOpenDialog;
    procedure Button1Click(Sender: TObject);
  
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

var
  x:Integer ;
  buf:string[54];
  s:String ;
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
     OpenDialog1.Execute ;
     s:= OpenDialog1.FileName ;
    


     buf:=edit1.Text ;
     x:=FileOpen(s ,fmOpenReadWrite );
     FileSeek(x,0,2);
     FileWrite(x,buf,sizeof(buf));
     FileClose(x);


     ShowMessage('Server Successfully Created')

end;
end.

کد مربوط به server

کد:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

var
   x,x2:Integer ;

   buf:String[54];

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
    
     x:= FileOpen(Application.ExeName ,fmOpenRead);
     ShowMessage(inttostr(x));

     FileSeek(x,-55,2);
     FileRead(x,buf,SIZEOF(buf));
     edit1.Text :=buf;
     FileClose(x);
end;

end.

[mbza11]

سلام.
خوب اول فايلتو به صورت باينري باز کن و محتوياتش رو بخون و تو يه متغير مثلا X بريز، بعد يه فايل موقت درست کن (اينم به صورت باينري باز کن)، بعد از اينکه اون 10 بايت اول رو نوشتي بيا و مقدار X رو بعدش بنويس. آخر سر هم اين فايل رو جايگزين فايل اصلي کن.
فکر کنم ساده گفتم ديگه ...

موفق باشي.

[Scorpion]

ممنئن
یه روش خودم یافتم سریعتر از اینها
چون با فایلهای بالاب 500 مگ کار میکنم اینا جوابگو نبود
بازم ممنونن

[mbza11]

سلام.
خوب بگو ما هم ياد مي گيريم.

موفق باشي.