ايران ويج

صفحه‌ها: 1 2

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

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

جناب 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.

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

موفق باشي.

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

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

موفق باشي.

صفحه‌ها: 1 2

lord_viper

Scorpion

lord_viper

mbza11

Scorpion

mbza11