传奇一条龙,复古传奇,GM基地,传奇服务端

 找回密码
 立即注册

QQ登录

只需一步,快速开始

网友自助信息发布区,请自行甄别

查看: 693|回复: 0

传奇客户端Wil编辑器Delphi开源代码

[复制链接]

624

帖子

2145

钻石

1359

积分

管理员

Rank: 9Rank: 9Rank: 9

在线时间
114 小时
发表于 2018-12-3 00:16:05 | 显示全部楼层 |阅读模式
传奇客户端Wil编辑器Delphi开源代码


procedure TForm1.CheckBox1Click(Sender: TObject);
begin
  if ((CheckBox1.Checked) and (fOpen.Count > 0)) then
   begin
     T1.Enabled:=TRUE;
   end
  else
   begin
     T1.Enabled:=FALSE;
   end;
end;

procedure TForm1.T1Timer(Sender: TObject);
begin
  if CheckBox2.Checked then Button3.Click
  else Button4.Click;
  if ((CrPos=0) or (CrPos=fOpen.Count - 1) or (cRpOS=fOpen.GetNextValidImageIndex(crPos))) then
   begin
    CheckBox1.Checked:=FALSE;
    T1.Enabled:=False;
   end;
end;

procedure TForm1.N9Click(Sender: TObject);
var tId:DWORD;
begin
  if fOpen.Count > 0 then
  begin
  ImOrOut:=0;
  DL.Edit4.Text:=IntToStr(crPos);
  DL.BG.Caption:='导出信息设置';
  DL.Show;
  end;
end;

procedure TForm1.N8Click(Sender: TObject);
var Pname:string;
    tId:DWORD;
begin
  if fOpen.Count > 0 then
  begin
   OD.Filter:='专用资源文件 (*.TPE)|*.TPE';
   if OD.Execute then
   begin
    b3:=Button3.Handle;
    b4:=Button4.Handle;
    Infseq:=Od.FileName;
    ImOrOut:=1;
    o_Pos:=crPos;
    bImp:=False;
    DL.Edit4.Text:=IntToStr(crPos);
    DL.BG.Caption:='导入信息设置';
    DL.Show;
    ResetEvent(hEvent);
    CloseHandle(CreateThread(
    nil,0,
    @TForm1.ImThreadProc,nil,0,tId
    ));
   end;
  end;
end;

procedure TForm1.KEN1Click(Sender: TObject);
var Pname:string;
    aBitMap:TBITMAP;
begin
  OD.Filter:='专用资源文件 (*.TPE)|*.TPE';
  if OD.Execute then
   begin
    Pname:=OD.FileName;
    if fOpen.ImportFromSeq(crPos,1,Pname) then
    begin
     if crPos=0 then
      begin
        IMG.Picture.Bitmap.FreeImage;
        aBitMap:=fOpen.IndexOfBitMap[crPos];
        if aBitMap <> nil then begin
        IMG.Picture.Bitmap:=aBitMap;
        IMG.Repaint;
        IMG.Refresh;
        end;
      end
     else
      begin
       edit7.Text:=IntToStr(crPos);
       crPos:=0;
       Button4.Click;
      end;
    end;
   end;
end;

procedure TForm1.N12Click(Sender: TObject);
var Pname:string;
begin
  if fOpen.Count > 0 then
   begin
   OD.Filter:='专用资源文件 (*.TPE)|*.TPE';
   if OD.Execute then
   begin
    Pname:=OD.FileName;
    if fOpen.ImportFromSeq(fOpen.Count,1,Pname) then
     begin
       mImage := fOpen.Count;
       crPos:= fOpen.Count - 2;
       edit7.Text:=IntToStr(fOpen.Count - 1);
       Button4.Click;
     end;
   end;
   end;
end;

procedure TForm1.N11Click(Sender: TObject);
begin
  close;
end;

function SaveMemToFile(fP:Pointer;size:DWORD;const fstr:string):DWORD;
var hfstr,hMap:Cardinal;
    hMem:Pointer;
begin
  ReSult:=0;
  hfstr:=CreateFile(
        pchar(fstr),
        GENERIC_READ + GENERIC_WRITE,
        FILE_SHARE_WRITE or FILE_SHARE_READ,
        0,
        OPEN_ALWAYS,
        FILE_ATTRIBUTE_NORMAL,
        0
        );
  if hfstr<>INVALID_HANDLE_VALUE then
    begin
      SetFilePointer(hfstr,size,0,FILE_BEGIN);
      SetEndOfFile(hfstr);
      hMap:=CreateFileMapping(hfstr,nil,PAGE_READWRITE,0,0,nil);
      if hMap<>0 then
        begin
         hMem:=MapViewOfFile(hMap,FILE_MAP_READ or FILE_MAP_WRITE,0,0,0);
         if hMem<>nil then
           begin
             CopyMemory(hMem,fP,size);
             UnmapViewOfFile(hMem);
           end;
         CloseHandle(hMap);
        end;
      CloseHandle(hfstr);
    end;
end;

游客,如果您要查看本帖隐藏内容请回复

回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ|Archiver|手机版|小黑屋|八五GM论坛专业的传奇私服GM技术交流基地 ( 粤ICP备11015868号-18 ) 传奇私服 Array7.2 版权所有 © 八五论坛 Comsenz Inc.

|网站地图
快速回复 快速发帖 返回顶部 返回列表