Delphi2010 Tstringlist保存的字符串,字母和数字显示出来为乱码

没分了,求大神指点迷津,感激涕零!
Delphi2010 Tstringlist保存的字符串字母和数字显示为乱码,本人64位系统,联想笔记本。

unit Unit1;

interface

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

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

var
  Form1: TForm1;

implementation

{$R *.dfm}

//*****************************************
procedure TForm1.Button1Click(Sender: TObject);
var
list:Tstringlist;
i,iT0,iT1 :Integer;
strT:string;
begin
list:=TStringList.Create;
list.Add('a');
list.Add('啊');
list.Add('B');

strT:=list[0];   //字符a
iT0:=Ord(strT);  //字符'a'的asc码 ,正确应为97
iT1:=Ord('啊');  //字符'啊'的asc码

ShowMessage(list[0]);   //显示字符'a'
ShowMessage(IntToStr( Length(list[0])));   //字符长度为 1
ShowMessage(IntToStr (iT0));  //字符'a'的asc码,显示出来为 71148588(不是97,且每次显示值都不一样);
ShowMessage(Chr(IT0));  //字符'a'的asc码反求字符,显示出来为 乱码'ꐬ'

end;
end. 
//******************************

3个回答

你的代码里有个非常明显的错误 iT0:=Ord(strT); 这句, 你说是求a的asc 但是由于strT是个string类型的变量, 你得到的值实际上是这个变量的指针地址
想取得a的asc码你应该这样写 iT0:=Ord(strT[1]); // delphi的string第一个字符下标是1

u011331332
Eglave @hskill 佩服!请受小生一拜!
大约 2 年之前 回复

list[0]是变量指针地址,
list[0][1]才是变量值,一针见血@hskill
ShowMessage(list[0])与ShowMessage(list[0][1])显示结果相同,但前者是地址,后者是值。学习了。

Csdn user default icon
上传中...
上传图片
插入图片
抄袭、复制答案,以达到刷声望分或其他目的的行为,在CSDN问答是严格禁止的,一经发现立刻封号。是时候展现真正的技术了!
其他相关推荐
delphi 能不能把TStringList里的内容,保存到剪切板里,可以粘贴到别的地方?

delphi 能不能把TStringList里的内容,保存到剪切板里,可以粘贴到别的地方? ``` sl := TStringList.Create; sl.Clear; sl.add('1'); sl.add('2'); sl.add('3'); ``` 1 2 3 能不能一这样的格式粘贴到别的地方。 或者有其他的好办法啊!

delphi中spccom串口通讯问题

/串口接收数据 //------------------------------------------------------------------------------ procedure TFormMain.Comm1ReceiveData(Sender: TObject; Buffer: Pointer;BufferLength: Word); var CRC:Word; pbuf:pchar; idx:integer; begin pbuf:=pchar(Buffer); SetLength(RBuf,BufferLength); move(pbuf^,pchar(@RBuf[1])^,bufferlength); lstLog.Add('接收:'+Rbuf); lstLog.ItemIndex:=lstLog.Items.Count-1; end; //------------------------------------------------------------------------------ // 枚举注册表中已经存在的串口 //---------------------------------------------------------------- procedure TFormMain.EnumComPorts(Ports: TStrings); var KeyHandle: HKEY; ErrCode, Index: Integer; ValueName, Data: string; ValueLen, DataLen, ValueType: DWORD; TmpPorts: TStringList; begin ErrCode := RegOpenKeyEx( HKEY_LOCAL_MACHINE, 'HARDWARE\DEVICEMAP\SERIALCOMM', 0, KEY_READ, KeyHandle); if ErrCode <> ERROR_SUCCESS then Exit; // raise EComPort.Create(CError_RegError, ErrCode); TmpPorts := TStringList.Create; try Index := 0; repeat ValueLen := 256; DataLen := 256; SetLength(ValueName, ValueLen); SetLength(Data, DataLen); ErrCode := RegEnumValue( KeyHandle, Index, PChar(ValueName), Cardinal(ValueLen), nil, @ValueType, PByte(PChar(Data)), @DataLen); if ErrCode = ERROR_SUCCESS then begin SetLength(Data, DataLen); TmpPorts.Add(Data); Inc(Index); end else if ErrCode <> ERROR_NO_MORE_ITEMS then exit; //raise EComPort.Create(CError_RegError, ErrCode); until (ErrCode <> ERROR_SUCCESS) ; TmpPorts.Sort; Ports.Assign(TmpPorts); finally RegCloseKey(KeyHandle); TmpPorts.Free; end; end; 这段程序读不懂,请问各位高手

delphi listview添加图标的问题?

准备了2个图标在Listview里显示,判断条件来添加不同的图标。 str1,str2都是Tstringlist。 For循环对比str1与str2的内容,如果相同listview.item.add.imageindex := 0; 否则listview.item.add.imageindex := 1; 搞了一个晚上了没有解决,来这里求助老师? 我的代码 ``` for i := 0 to sList.Count - 1 do begin if sList[i] = '' then begin ListView1.Items.Add.Caption := ''//添加空行 end else begin for j := 0 to MainForm.PopupMenu1.Items.Count - 1 do begin if MainForm.PopupMenu1.Items[j].Caption = sList[i] then begin with ListView1.Items.Add do begin Caption := sList[i]; ImageIndex := 1; end; Break; end else begin with ListView1.Items.Add do begin Caption := sList[i]; ImageIndex := 0; end; end; end; end; end; ```

delphi断点无效,自动跳过代码

//定义 type PlayerInfo = record //客户端信息 ID: pchar; GameHwnd: int64; //游戏句柄 ClientHwnd: int64; //dll的窗体句柄 Account: pchar; //账号 PassWord: pchar; //密码 RealmName_1: pchar; //服务器 RealmName_2: pchar; playername:pchar; Team:pchar;//队伍 Task:pchar;//功能 CmdCode:pchar; Gamepath:pchar; end; pplayerinfo = ^playerinfo; var pplayer: PlayerInfo; {这个将会已指针的方式传递给线程, 它应该是全局的} T_Event: Cardinal = 0; //事件内核 function LoginGame(ptr: pointer): boolean; stdcall; //登录游戏的线程 var i, c: Integer; num: integer; //ID hmodule: thandle; installkeyProc: function(hwindow: hwnd): boolean; gamehprocess, module: Cardinal; gameh, childhwnd, filehwnd: int64; TextFile: TStringList; filepath: string; Curp: PlayerInfo; {因为指针参数给的点随时都在变, 需用线程的局部变量存起来} //临时变量 ID: pchar; GameHwnd: int64; //游戏句柄 ClientHwnd: int64; //dll的窗体句柄 Account: pchar; //账号 PassWord: pchar; //密码 RealmName_1: pchar; //服务器 RealmName_2: pchar; playername:pchar; Team:pchar;//队伍 Task:pchar;//功能 CmdCode:pchar; Gamepath:pchar; begin EnterCriticalSection(CS); //进入临界区 try result := False; Curp := pPlayerInfo(ptr)^; //这里开始往下断点无效,会自动跳过 ID:=Curp.ID; //这个createthread传递进来的结构体,参数多了,传递的值会出错 ClientHwnd:=Curp.ClientHwnd; Account:=Curp.Account; PassWord:=Curp.PassWord; RealmName_1:=Curp.RealmName_1; RealmName_2:=Curp.RealmName_2; playername:=Curp.playername; Team:=Curp.Team; task:=Curp.Task; //直到这里可以下断点,中间这一块全部跳过 cmdcode:=Curp.CmdCode; Gamepath:=Curp.Gamepath; SetEvent(T_Event); //设置触发 filepath := Gamepath + '\data\config.ini'; if FileExists(filepath) then begin //如果文件存在,则进行修改和添加 TextFile := TStringList.Create; TextFile.LoadFromFile(filepath); for I := 0 to TextFile.Count - 1 do begin if Pos('SaveAccount', TextFile[i]) > 0 then begin TextFile.Delete(i); TextFile.Insert(i, 'SaveAccount = ' + '0'); end; end; TextFile.SaveToFile(filepath); if TextFile <> nil then begin TextFile.Free; TextFile := nil; end; end; //参数一:进程路径 //参数二:命令行 //参数八:子进程工作路径 if createprocess(pchar(gamepath+'\asktao.mod'), pChar('des:'+CmdCode), nil, nil, False, 0, nil, gamepath, StartupInfo, ProcessInfo) then begin gameh := GetHwndFromProcess(ProcessInfo.dwProcessId); for c := 0 to 60 do begin if gameh = 0 then begin Sleep(1000); gameh := GetHwndFromProcess(ProcessInfo.dwProcessId); end else break; end; end; if gameh > 0 then begin if KeyHook(gameh) then FormMain.Memo1.Lines.Add('dll安装成功'); //安装完成后,客户端窗体会创建一个DLL窗体,类名为Tform1 //遍历所有进程,跟进程ID相同,并且窗体类名为Tform1 //则代表dll窗体初始化成功,可以发送Data告诉他去登陆 for c := 0 to 30 do begin childhwnd := GetChildwindows(ProcessInfo.dwProcessId); if childhwnd > 0 then begin Break; end else Sleep(1000); end; //成功创建窗口,可以开始发送数据,并让他开始自动登陆 //如果child窗口为0,则表示登陆失败,或者creatprocess开始是循环 //失败了重新再开一个窗口,记得关闭这个窗口 end; result := True; Isloading := false; LeaveCriticalSection(CS); //离开临界区 ExitThread(0); except result := false; ExitThread(0); end; end; procedure TFormMain.Button1Click(Sender: TObject); var i: integer; num: integer; UserIni: TIniFile; list: tstringlist; filepath: string; sr: TSearchRec; Section, Key: string; { 分别表示 ini 文件的小节与关键字 } begin filepath := ExtractFilePath(Application.ExeName); filepath := filepath + '\区组信息.ini'; if not fileExists(filepath) then begin MessageBox(Handle, '服务器列表文件丢失', '错误信息', 0); Exit; end; for i := 0 to FormMain.listview1.Items.Count - 1 do begin if FormMain.ListView1.Items[i].Checked = True then begin num := StrToInt(FormMain.ListView1.Items[i].Caption); pplayer.ID := pchar(inttostr(num)); pplayer.GameHwnd := 0; pplayer.ClientHwnd := self.Handle; pplayer.Account := pchar(FormMain.ListView1.Items[i].SubItems[0]); pplayer.PassWord := pchar(FormMain.ListView1.Items[i].SubItems[1]); pplayer.RealmName_1 := pchar(FormMain.ListView1.Items[i].SubItems[2]); pplayer.RealmName_2 := pchar(FormMain.ListView1.Items[i].SubItems[3]); pplayer.playername := pchar(FormMain.ListView1.Items[i].SubItems[4]); pplayer.Team:= pchar(FormMain.ListView1.Items[i].SubItems[5]); pplayer.task:= pchar(FormMain.ListView1.Items[i].SubItems[9]); pplayer.Gamepath:=pchar(formmain.Edit游戏路径.text); //根据服务器列表设置 UserIni := TIniFile.Create(filepath); // 判断文件大小 if FindFirst(filepath, faAnyFile, sr) = 0 then begin if sr.size > 0 then begin // 如果文件不为空 section:='DES'; key:=pplayer.RealmName_1; pplayer.CmdCode:=pchar(userini.ReadString(section,key,'')); end else begin MessageBox(Handle, '服务器列表文件丢失', '错误信息', 0); FindClose(sr); if UserIni <> nil then begin UserIni.Free; UserIni := nil; end; Exit; end; end; //关闭由FindFirstFile函数创建的一个搜索句柄 FindClose(sr); if UserIni <> nil then begin UserIni.Free; UserIni := nil; end; hthread := createthread(nil, 0, @LoginGame, @pplayer, 0, threadid); if WaitForSingleObject(T_Event, INFINITE) = WAIT_OBJECT_0 then ResetEvent(T_Event); //设置为未触发 CloseHandle(hthread); end; end; end; 不知道为什么,logingame线程,传递的自定义结构体参数过多,会传递不正确,而且其中有注释的地方会断点无效,运行起来会自动跳过这段代码,求大神解救,谢谢。。

delphi 中操作excel作对比的快速算法

我有两个excel表,分别指定了关键字,从表1中逐个取出关键字去表2关键字段中去逐一查找比较,找到后就将表2中该行标红。 我现在碰见的问题是我这种方法,如果表2很大,有上万行,我的程序就会运行的很慢,几乎死机。 我在网上看了有TStringlist可用,我想把表2中的数据取出时带上行号和列号,放在Tstringlist中,然后从表1中取出信息去查找,但是因为表2的数据带上了行号和列号,那表1中取出的信息即便是于表2中一样,因为行号和列号的原因也找不到,各位有什么办法解决不 新手没钱,谢谢大家帮助。

delphi 的AES解码方法求解

delphi 通过CnAes.pas调用的AES解码方法 CBC 流解密 procedure DecryptAESStreamCBC(Source: TStream; Count: Cardinal; const Key: TAESKey128; const InitVector: TAESBuffer; Dest: TStream); overload; 密文:ZCeSw78CTOPvCZ4bIFd5UOTfHdrCBJNC5h6+/MIHMKcBrT02j1XQrUkDPa8EelQ/ 主密钥master_key:0123456789ABCDEF 偏移量: 85A8D4B2854165A1 用CnAes中的方法总会在后面报错地址访问的错误,原码被我更改的不像样了,就不贴了,求大佬推荐个好用Aes解码的方法或者CnAes解码的演示例子 补充下我的代码吧: procedure TForm1.btn1Click(Sender: TObject); var vStr, vData,vKey, vOffset : string; SS, DS: TMemoryStream; AESKey128 : TAESKey128; pFusion : TAESBuffer; I : integer; p: PAnsiChar; tls:TStringList; begin vOffset := '85A8D4B2854165A1'; CopyMemory(@pFusion[0], @vStr[1], length(vStr)); vKey := '0123456789ABCDEF'; vData := 'ZCeSw78CTOPvCZ4bIFd5UOTfHdrCBJNC5h6+/MIHMKcBrT02j1XQrUkDPa8EelQ/'; SS := TMemoryStream.Create(); SS.Write(PAnsiChar(@vData[1])^, Length(vData)); SS.Position := 0; DS := TMemoryStream.Create(); FillChar(AESKey128, SizeOf(AESKey128), 0 ); Move(PChar(vKey)^, AESKey128, Min(SizeOf(AESKey128), Length(vKey))); FillChar(pFusion, SizeOf(pFusion), 0 ); Move(PAnsiChar(vOffset)^, pFusion, Min(SizeOf(pFusion), Length(vOffset))); //DecryptAESStreamCBC是CnAes中的方法 DecryptAESStreamCBC(SS, SS.Size - SS.Position, AESKey128, pFusion, DS); SetLength(vStr, DS.Size); Move(PAnsiChar(DS.Memory)^, vStr[1], DS.Size); vStr := UTF8Decode(vStr); showmessage(vStr); end;

求助!!delphi模拟登录博客园并发帖!!

百度未果 请兄弟们给出解决思路 最好再给出代码或者帮看下下面的代码问题处在哪里怎么扩充!!谢谢 procedure TForm1.Button1Click(Sender: TObject); var postList:TStrings; Response:TStringStream; url:string; myIH:TIdHTTP; IdSSLIOHandlerSocketOpenSSL1:TIdSSLIOHandlerSocketOpenSSL; begin Response:=TStringStream.Create(''); postList:=TStringList.Create; try myIH:=TIdHTTP.Create(nil); IdSSLIOHandlerSocketOpenSSL1:=TIdSSLIOHandlerSocketOpenSSL.Create(nil); myIH.IOHandler:=IdSSLIOHandlerSocketOpenSSL1; myIH.HandleRedirects:=True; myIH.Request.UserAgent:='Mozilla/5.0 (compatible; MSIE 9.0; Windows NT 6.1; WOW64; Trident/5.0)'; // myIH.Request.UserAgent:='Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0; Maxthon)'; postList.Add('__EVENTTARGET='); postList.Add('__VIEWSTATE=/wEPDwUJLTI5NjAzODk2ZBgBBR5fX0NvbnRyb2xzUmVxdWlyZVBvc3RCYWNrS2V5X18WAQULY2hrUmVtZW1iZXKHW0DW4nQrSrBHBomKrt3/MjtBLA=='); postList.Add('__EVENTVALIDATION=/wEWBQKE2u7lCQLyj/OQAgK3jsrkBALR55GJDgKC3IeGDO8x1Jd0k/hBY1a/6Yl9fTpP16ti'); postList.Add('input1=@@@@'); postList.Add('input2=@@@@'); postList.Add('chkRemember='); postList.Add('btnLogin=登 录'); myIH.Post('http://passport.cnblogs.com/login.aspx',postList,Response); finally Memo1.Lines.Text := Utf8ToAnsi(Response.DataString); Response.Free; postList.Free; end; end;

部分外网用户无法通过delphi做的程序连接ftp服务器,宽带不行,换成手机热点却可以

1.服务器上安装的filezilla程序,采取被动模式,做了动态域名映射,端口也都放开了 2.用delphi做的程序通过idftp连接ftp服务器,用来上传和下载文件 3.公司内部使用没有问题 4.外网用户通过浏览器,文件夹都可以正常访问公司的ftp服务器获取文件 但是有部分用户使用delphi开发的程序时,却连不上,奇怪的是他们把电脑 连上手机热点的网络后却可以正常使用。还有的之前用家里的网使用的一切正常,后来t突就然就连不上了 ``` begin with TIdFTP.Create(nil) do try Port := gftp_port; Passive :=true; PassiveUseControlHost := true; Host := gFtpserver; Username := gftp_user; Password := gftp_pass; lst := TStringList.Create; try Connect; //在这里报错 cxm1.Lines.Clear; cxm1.Lines.Add('开始下载文件...'); tblo.First; while not tblo.EOF do begin bc := tblo.FieldByName('bcode').Value; sp := Format('\Original\%s\%s\', [formatdatetime('yyyymmdd',tblo.FieldByName('bdate').AsDateTime), bc]); fd := cxbtndt1.Text; if tblo.FieldByName('file1').IsNull then sf := '' else sf := tblo.FieldByName('file1').Value; if sf <> '' then begin try //修改了文件名称,文件名称为订单ID+文件名称 sf1 := tblo.FieldByName('wo_id').AsString + '_'+sf; if FileExists(fd+sf1) then DeleteFile(fd+sf1); Get(sp+sf, fd+sf1); //cxm1.Lines.Add(Format('%s 文件%s下载完成.', [bc, sf1])); except on e:Exception do begin if FileExists(fd+sf1) then DeleteFile(fd+sf1); cxm1.Lines.Add(Format('%s 文件%s不存在.', [bc, sf1])); end; end; end; tblo.Next; Application.ProcessMessages; end; cxm1.Lines.Add('文件下载结束.'); OpenDialog(s, '浏览文件', '所有文件(*.*)', '*.*', true, fd); except on e: Exception do begin cxm1.Lines.Add('连接文件服务器错误:'+e.Message); end; end; finally if Connected then Disconnect; Free; lst.Free; end; ``` ![图片说明](https://img-ask.csdn.net/upload/202004/03/1585922841_970025.png)

请问delphi大牛 为什么这段代码的外层循环没有执行?

procedure TForm1.Button1Click(Sender: TObject); var sUrl:string; ihMyIdHttp:TIdHTTP; ihMyIdHttp1:TIdHTTP; iFrom:Integer; iTo:Integer; i:Integer; sInfo:string; sName:string; list:TStringList; o:Integer; p:Integer; list1:TStringList; list2:TStringList; s公司名称:string; s会员级别:string; s联系人:string; sQQ:string; s电话:string; s移动电话:string; s传真:string; s网址:string; sSubInfo:string; begin ListView1.Items.Clear; if (Edit1.Text='') or (Edit2.Text='') then begin ShowMessage('请输入搜索范围'); Exit; end; iFrom:=StrToInt(Edit1.Text); iTo:=StrToInt(Edit2.Text); ListView1.ViewStyle:=vsReport; ihMyIdHttp:=TIdHTTP.Create(nil); for i := iFrom to iTo do begin sUrl:='http://www.sg560.com/company/cate_area-0/date_key_/p'+i.ToString+'.html'; ShowMessage(sUrl); sInfo:=ihMyIdHttp.Get(sUrl); sInfo:=CopyStr(sInfo,'<div class="result-list-content">','<div class="clearfix">'); SplitString(sInfo,'<a class="g-imgTxt-tl" href="',list); ihMyIdHttp1:=TIdHTTP.Create(nil); for o := 0 to list.Count-1 do begin p:=o; p:=p*2+1; if p=21 then Exit; SplitString(list[p],'" title="',list1); s网址:='http://www.sg560.com'+list1[0]; SplitString(list1[1],'"',list2); s公司名称:=list2[0]; sSubInfo:=ihMyIdHttp1.Get(s网址); sSubInfo:=CopyStr(sSubInfo,'<div class="header">','<div class="mright">'); s会员级别:=CopyStr(sSubInfo,'<div class="name2">','</div>'); s会员级别:=s会员级别+':第'+CopyStr(sSubInfo,'<span class="num">','</span>')+'年'; s联系人:=CopyStr(sSubInfo,'<p class="mlp2">','<a'); s联系人:=CopyStr(s联系人,'<span>','</span>'); sQQ:=CopyStr(sSubInfo,'&uin=','&site'); s电话:=CopyStr(sSubInfo,'电 话:','<br />'); s移动电话:=CopyStr(sSubInfo,'移动电话:','<br />'); s传真:=CopyStr(sSubInfo,'传 真:','</p>'); if s会员级别<>'免费会员' then begin with ListView1.Items.Add do begin //Caption:=IntToStr('1'); SubItems.Add('22'); SubItems.Add(s公司名称); SubItems.Add(s会员级别); SubItems.Add(s联系人); SubItems.Add(sQQ); SubItems.Add(s电话); SubItems.Add(s移动电话); SubItems.Add(s传真); SubItems.Add(s网址); try listview1.Items[listview1.Items.Count-1].MakeVisible(true); except on E:Exception do ShowMessage('异常:'+E.Message); end; end; end; end; ihMyIdHttp.Free; ihMyIdHttp1.Free; end; end;

ACCESS数据选择性丢失,delphi开发

我用DELPHI+ACCESS做了一个小应用,发生了一件怪事: 订单数据明明插入到数据库了,可以正常进行下一步操作,并且可以正常导出,但软件关闭后,今天操作的订单数据会丢失,以前的数据不会丢失。后续的操作数据也会留下来。 下面贴出我导入EXCEL订单的代码。 ``` procedure TfrmFPimport.btnOpenClick(Sender: TObject); var ExcelApp: Variant; sl,subsl:TStringList; i,j:integer; filename,strSql,sql_mx:string; fapiao,yearmonth:string; cmd: TadoCommand; e: exception; kprq,bz,rq1,rq2,bizhi: string; code,number,capital_hz:string; hl,yfbf,dj,zj,dj_rmb,zj_rmb,rmb_hz,usd_hz,usd_hz_rmb,chayi,hangshu:double; road:string; begin dlgOpen1.FileName:=''; dlgOpen1.Execute; filename:=dlgOpen1.FileName; if filename <>'' then begin try sl:=TStringList.Create; subsl:=TStringList.Create; btnOpen.Enabled :=false; ADOConnection_Excel.Connected:=False; ADOConnection_Excel.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Password="";Data Source="'+ filename+'";Extended Properties="Excel 8.0;IMEX=1";Persist Security Info=False'; ADOConnection_Excel.Connected:=True; ADOConnection_Excel.GetTableNames(sl); if (sl.Count>0) and (sl.IndexOf('sheet1$')<>-1) then begin road:=ExtractFileDir(Application.Exename); ADOConnection1.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;Data Source='+road+'\database\wxfp.mdb;Mode=Share Deny None;Jet OLEDB:System database="";Jet OLEDB:Registry Path="";Jet OLEDB:Database Password=nbeport2010;Jet OLEDB:Engine Type=5;Jet OLEDB:Database Locking Mode=1;'; ADOConnection1.Connected:=True; ADOConnection1.BeginTrans; cmd := TadoCommand.Create(application); cmd.Connection := dmdCustom.cnnCustom; // cmd.ParamCheck := false; ADOQuery_Excel.Close; ADOQuery_Excel.Sql.Text:='SELECT * FROM [sheet1$]'; ADOQuery_Excel.Open; ADOQuery_Excel.First; for i:=1 to ADOQuery_Excel.RecordCount do begin //判断是否要发票已经开过了 qry_RunSql.Close; qry_RunSql.SQL.text:='select bgd_no from wxInvoice where bgd_no=:HGBH and zfflag='''+'0'+''''; qry_RunSql.Parameters.ParamByName('HGBH').Value:= ADOQuery_Excel.fieldbyname('内部发票号').AsString; qry_RunSql.Open; if not qry_RunSql.Eof then begin showmessage('内部发票号:'+ADOQuery_Excel.fieldbyname('内部发票号').AsString+'已经开具!请在excel文件中删除'); ADOConnection_Excel.Connected:=False; exit; end; end; ADOQuery_Excel.Close; ADOQuery_Excel.Sql.Text:='SELECT * FROM [sheet1$]'; ADOQuery_Excel.Open; if ADOQuery_Excel.RecordCount>0 then begin ADOQuery_Excel.First; fapiao:= ''; advprgrsbr1.Min:=1; advprgrsbr1.Max:= ADOQuery_Excel.RecordCount-1; for i:=1 to ADOQuery_Excel.RecordCount do begin advprgrsbr1.Position:=i; Application.ProcessMessages; if ADOQuery_Excel.fieldbyname('内部发票号').AsString = fapiao then begin // 多行的情况下,判断行数 qry_excel2.Close; qry_excel2.SQL.text:='SELECT * FROM [sheet1$] where 内部发票号=:fp'; qry_excel2.Parameters.ParamByName('fp').Value:= fapiao; qry_excel2.Open; hangshu:= qry_excel2.RecordCount; //处理明细行 //匹配国税编码及名称 qry.Close; qry.SQL.Text:='select * from tblCmcode where code=:code'; qry.Parameters.ParamByName('code').value:=ADOQuery_Excel.fieldbyname('HS编码').AsString; qry.Open; //只考虑FOB情况 zj:= ADOQuery_Excel.fieldbyname('报关金额').AsFloat; usd_hz:=usd_hz +strtofloat(format('%0.2f', [zj])); zj_rmb:= hl * zj; zj_rmb:= strtofloat(format('%0.2f', [zj_rmb])); dj_rmb:= zj_rmb / ADOQuery_Excel.fieldbyname('报关数量').AsFloat; rmb_hz:= rmb_hz + zj_rmb; usd_hz_rmb:=strtofloat(format('%0.2f', [usd_hz* hl])); //汇总美元金额 直接 乘以 汇率 if j = hangshu then begin chayi:= usd_hz_rmb - rmb_hz; chayi:= strtofloat(format('%0.2f', [chayi])); end; sql_mx:= 'insert into wxInvoiceDetail(invCode,invNumber,hscode,goodsName,model,unit,price,quantity,amount,'+ 'gscode,gsname,depname,rmb_dj,jsAmount,XH) values(''' + code + ''',''' + number + ''',''' + ADOQuery_Excel.fieldbyname('HS编码').AsString + ''',''' + ADOQuery_Excel.fieldbyname('报关品名').AsString + ''',''' + ADOQuery_Excel.fieldbyname('规格型号').AsString + ''',''' + '个' + ''',' + ADOQuery_Excel.fieldbyname('报关单价').AsString + ',' + ADOQuery_Excel.fieldbyname('报关数量').AsString + ',' + format('%0.2f', [zj]) + ',''' + qry.fieldbyname('GScode').AsString + ''',''' + qry.fieldbyname('name').AsString + ''',''' + qry.fieldbyname('depname').AsString + ''',' + format('%0.6f', [dj_rmb]) + ',' + format('%0.2f', [zj_rmb+chayi]) + ',''' + inttostr(j) + ''')' ; j:=j+1; // sql_mx := StringReplace(sql_mx, '''','''''', [rfReplaceAll]); cmd.CommandText := sql_mx; cmd.Execute(); //处理人民币合计 更新到表头里 capital_hz:= MoneyConvert(usd_hz_rmb); sql_mx:='update wxInvoice set rmb=:renminbi,capital=:capital,amt=:amt where bgd_no=:bgd_no'; cmd.CommandText:= sql_mx; cmd.Parameters.ParamByName('renminbi').Value:= formatfloat('0.00',usd_hz_rmb); cmd.Parameters.ParamByName('capital').Value:= capital_hz; cmd.Parameters.ParamByName('amt').Value:= usd_hz; cmd.Parameters.ParamByName('bgd_no').Value:= ADOQuery_Excel.FieldValues['内部发票号']; cmd.Execute(); fapiao:= ADOQuery_Excel.FieldValues['内部发票号']; end else begin if trim(ADOQuery_Excel.fieldbyname('内部发票号').AsString)='' then break; //初始化需要累加的值 j:=1; rmb_hz :=0; usd_hz:=0; qry.Close; //获取发票号码 代码 strSql := 'select startNumber,pcs,remain,invCode,id from wxFpkc' + ' where remain >0 ' + ' order by id'; qry.SQL.Text := strSql; qry.Open; if qry.Eof then begin qry.Close; showmessage('无可用的发票库存信息,请导入发票!'); exit; end; Number := formatfloat('00000000',strtoint(qry.Fields[0].AsString) +qry.Fields[1].AsInteger - qry.Fields[2].AsInteger); code:= qry.Fields[3].AsString; //判断汇率有没有设置过 kprq:= ADOQuery_Excel.fieldbyname('开票日期').AsString; kprq:= StringReplace (kprq, '.', '-', [rfReplaceAll]); yearmonth:=FormatdateTime('yyyymm',strtodatetime(kprq)); qry_RunSql.Close; qry_RunSql.SQL.text:='select * from tblBicode where code=:code and VALIDMONTH=:VALIDMONTH'; qry_RunSql.Parameters.ParamByName('VALIDMONTH').Value:= yearmonth; qry_RunSql.Parameters.ParamByName('code').Value:= ADOQuery_Excel.fieldbyname('币别').AsString; qry_RunSql.Open; if qry_RunSql.Eof then begin showmessage(yearmonth+'汇率没有设置,请设置!'); exit; end else hl:= qry_RunSql.fieldbyname('hl').asfloat/100; //处理明细行 //匹配国税编码及名称 qry.Close; qry.SQL.Text:='select * from tblCmcode where code=:code'; qry.Parameters.ParamByName('code').value:=ADOQuery_Excel.fieldbyname('HS编码').AsString; qry.Open; //只考虑FOB情况 zj:= ADOQuery_Excel.fieldbyname('报关金额').AsFloat; usd_hz:=usd_hz +strtofloat(format('%0.2f', [zj])); zj_rmb:= hl * zj; zj_rmb:= strtofloat(format('%0.2f', [zj_rmb])); dj_rmb:= zj_rmb / ADOQuery_Excel.fieldbyname('报关数量').AsFloat; rmb_hz:= rmb_hz + zj_rmb; //处理汇总差异 usd_hz_rmb:=strtofloat(format('%0.2f', [usd_hz* hl])); //汇总美元金额 直接 乘以 汇率 if j = hangshu then begin chayi:= usd_hz_rmb - rmb_hz; chayi:= strtofloat(format('%0.2f', [chayi])); end; //处理人民币合计 capital_hz:= MoneyConvert(usd_hz_rmb); sql_mx:= 'insert into wxInvoiceDetail(invCode,invNumber,hscode,goodsName,model,unit,price,quantity,amount,'+ 'gscode,gsname,depname,rmb_dj,jsAmount,XH) values(''' + code + ''',''' + number + ''',''' + ADOQuery_Excel.fieldbyname('HS编码').AsString + ''',''' + ADOQuery_Excel.fieldbyname('报关品名').AsString + ''',''' + ADOQuery_Excel.fieldbyname('规格型号').AsString + ''',''' + '个' + ''',' + ADOQuery_Excel.fieldbyname('报关单价').AsString + ',' + ADOQuery_Excel.fieldbyname('报关数量').AsString + ',' + format('%0.2f', [zj]) + ',''' + qry.fieldbyname('GScode').AsString + ''',''' + qry.fieldbyname('name').AsString + ''',''' + qry.fieldbyname('depname').AsString + ''',' + format('%0.6f', [dj_rmb]) + ',' + format('%0.2f', [zj_rmb+chayi]) + ',''' + inttostr(j) + ''')' ; j:=j+1; cmd.CommandText := sql_mx; cmd.Execute(); //处理表头信息 qry1.Close; qry1.SQL.Text:='select top 1 * from tblCompany'; qry1.Open; strSql:= 'insert into wxInvoice(taxNumber,invType,invCode,invNumber,kpDate,bgd_no,clientCode,CustName,amt,operator,payee,fhr,remark,'+ 'crny,exchange,rmb,contractNo,jckrq,capital) values(''' + '91330201610258252F.1' + ''',''' + '27310' + ''',''' + code + ''',''' + Number + ''',''' + kprq + ''',''' + ADOQuery_Excel.fieldbyname('内部发票号').AsString + ''',''' + ADOQuery_Excel.fieldbyname('客户名称').AsString + ''',''' + ADOQuery_Excel.fieldbyname('客户名称').AsString + ''',' + formatfloat('0.00',usd_hz) + ',''' + qry1.fieldbyname('kpr').AsString + ''',''' + qry1.fieldbyname('skr').AsString + ''',''' + qry1.fieldbyname('fhr').AsString + ''',''' + ADOQuery_Excel.fieldbyname('备注').AsString + ''',''' + ADOQuery_Excel.fieldbyname('币别').AsString + ''',' + floattostr(hl*100) + ',''' + formatfloat('0.00',usd_hz_rmb) + ''',''' + ADOQuery_Excel.fieldbyname('合同号').AsString + ''',''' + kprq + ''',''' + capital_hz + ''')' ; //strSql := StringReplace(strSql, '''','''''', [rfReplaceAll]); cmd.CommandText := strSql; cmd.Execute(); //更新库存,并以此为基准更新国税库存 strSql := 'update wxFpkc set remain=remain-1'; cmd.CommandText := strSql; cmd.Execute(); strSql := 'update wxFpkc ' + ' set crtNumber= right( ''00000000'' +cstr( cdbl(endNumber )-remain +1) ,8) '; cmd.CommandText := strSql; cmd.Execute(); strSql := 'delete from wxFpkc where remain=0'; cmd.CommandText := strSql; cmd.Execute(); fapiao:= ADOQuery_Excel.FieldValues['内部发票号']; end; ADOQuery_Excel.Next; // 更新发票库存 end; ADOConnection1.CommitTrans; //*******//提交到后台数据库 end; end; except ADOConnection1.RollbackTrans; showmessage(e.Message); ADOConnection1.Connected:=false; ADOConnection_Excel.Connected:=False; end; ADOConnection_Excel.Connected:=False; // ADOConnection1.endtrans; ADOConnection1.Connected:=false; showmessage('导入成功!'); btnOpen.Enabled :=true; end; end; ```

通过HTTP-POST连接到Delphi应用程序的php脚本[通过Internet]

<div class="post-text" itemprop="text"> <p>I've written a test php script located in a remote server of mine, and I am using Delphi code to do a Http_Post to that php file.</p> <p>It works perfectly when I am doing it on a local server, but fails with a </p> <blockquote> <p>Socket Error #10061 - Connection Refused</p> </blockquote> <p>error.</p> <p>Here is the code I am using to do the Http Post :</p> <pre><code>function TForm1.doPost(Url : String): string; var lHTTP: TIdHTTP; lParamList: TStringList; begin lParamList := TStringList.Create; lParamList.Add('service_test=Testing Server'); lHTTP := TIdHTTP.Create(nil); try Result := lHTTP.Post(Url, lParamList); prgView.StepIt; finally lHTTP.Free; lParamList.Free; end; end; </code></pre> <p>The url is reachable fro, browser and other applications viz. [Tested with an android app with the same php script]</p> <p>Url : <a href="http://pbcserver.dlinkddns.com/users/priyabrata/contest.php" rel="nofollow">http://pbcserver.dlinkddns.com/users/priyabrata/contest.php</a></p> <p>Php Script :</p> <pre><code>if (isset($_POST["service_test"])){ $val = $_POST["service_test"]; if ($val == "Testing Server"){ $response["Success"] = "1"; echo (json_encode($response)); } else{ $response["Success"] = "0"; echo (json_encode($response)); } } else{ $response["Success"] = "0"; echo (json_encode($response)); } </code></pre> <blockquote> <p><strong>New Observation</strong> :</p> <p>When I run the app from within Delphi, the post doesn't work and get the above error,however when I run the created .exe from Windows like any other app, it works perfectly!</p> </blockquote> </div>

list中存放了String与List 如何把其中的值取出来

![图片说明](https://img-ask.csdn.net/upload/201610/07/1475855733_569107.png) 在ssh中如何取出复杂的List

Win2016环境下获取终端用户共享盘提示1707错误.(delphi7)

``` unction GetUserResource(IpAddr: string; var List: TStringList): Boolean; type TNetResourceArray = ^TNetResource;//网络类型的数组 Var i: Integer; Buf: Pointer; Temp: TNetResourceArray; lphEnum: THandle; NetResource: TNetResource; Count,BufSize,Res: DWord; Begin Result := False; List.Clear; if copy(Ipaddr,0,2) <> '\\' then IpAddr := '\\'+IpAddr; //填充Ip地址信息 FillChar(NetResource, SizeOf(NetResource), 0);//初始化网络层次信息 NetResource.lpRemoteName := @IpAddr[1];//指定计算机名称 //获取指定计算机的网络资源句柄 Res := WNetOpenEnum( RESOURCE_GLOBALNET, RESOURCETYPE_ANY, RESOURCEUSAGE_CONNECTABLE, @NetResource,lphEnum); Buf:=nil; if Res <> NO_ERROR then exit;//执行失败 while True do//列举指定工作组的网络资源 begin Count := $FFFFFFFF;//不限资源数目 BufSize := 8192;//缓冲区大小设置为8K GetMem(Buf, BufSize);//申请内存,用于获取工作组信息 //获取指定计算机的网络资源名称 Res := WNetEnumResource(lphEnum, Count, Pointer(Buf), BufSize); if Res = ERROR_NO_MORE_ITEMS then break;//资源列举完毕 if (Res <> NO_ERROR) then Exit;//执行失败 Temp := TNetResourceArray(Buf); for i := 0 to Count - 1 do begin //获取指定计算机中的共享资源名称,+2表示删除"\\", //如//192.168.0.1 => 192.168.0.1 List.Add(Temp^.lpRemoteName + 2); Inc(Temp); end; end; Res := WNetCloseEnum(lphEnum);//关闭一次列举 if Res <> NO_ERROR then exit;//执行失败 Result := True; FreeMem(Buf); End; ``` **获取终端用户共享盘:** ``` IpAddr:='\\tsclient'; Res := WNetOpenEnum( RESOURCE_GLOBALNET, RESOURCETYPE_ANY, RESOURCEUSAGE_CONNECTABLE, @NetResource,lphEnum); ``` **在win10(win2016)环境下,Res返回1707.(1707 0x000006AB 网络地址无效)** **但是在win2003和win2008环境下都正常.(Res返回0)** **这个问题如何解决?各位大侠给点建议,谢啦.**

有没有更好的方法上传记录集与JSON或其他? [关闭]

<div class="post-text" itemprop="text"> <p>I have firebird database and need to upload one of database tables to remote mysql server on web. There are thousands records and I dont know how to upload these records. I can upload records one by one with JSON. I'm using POST method.</p> <p>How can I upload all records in one time or in parts?</p> <p><strong>Update 1:</strong> This codes is working for one by one data update. But it's like such a flood attack. I want to upload all data that I've selected in one time.</p> <p><strong>Delphi 7 Side</strong> <strong>HTTP Post Method</strong></p> <pre><code>function PostURLAsString(aURL: string; code:string): string; var lHTTP: TIdHTTP; lStream: TStringStream; parameters: TStringList; begin lHTTP := TIdHTTP.Create(nil); lHTTP.Request.ContentType := 'application/x-www-form-urlencoded'; lStream := TStringStream.Create(Result); try Parameters := TStringList.Create; parameters.Add('code=' + code); lHTTP.Post(aURL, parameters,lStream); lStream.Position := 0; Result := lStream.ReadString(lStream.Size); finally FreeAndNil(lHTTP); FreeAndNil(lStream); end; end; </code></pre> <p><strong>Upload Records One by One:</strong></p> <pre><code>procedure TForm1.Button1Click(Sender: TObject); var js:TlkJSONobject; jb: TlkJSONbase; s: String; code:string; begin IBQuery1.First; with IBQuery1 do while not Eof do begin code := VarToStr(FieldValues['code']); s := PostURLAsString('http://www.domain.com/uitems.php', code); js := TlkJSON.ParseText(s) as TlkJSONobject; jb := js.Field['items']; if VarToStr(jb.Child[0].Field['status'].Value) = '1' then ListBox1.Items.Add(code + ' is inserted') else ListBox1.Items.Add(code + ' is not inserted'); Application.ProcessMessages; js.Free; Next; end; end; </code></pre> <p><strong>PHP Side</strong> <strong>uitems.php</strong></p> <pre><code>&lt;?php include_once dirname(__FILE__) .'/DBConnect.php'; function update($code){ $db = new DbConnect(); // array for json response $response = array(); $response["items"] = array(); $sqlstr = "INSERT INTO items (`code`) VALUES ('$code')"; $result = mysql_query($sqlstr); $tmp = array(); if ($result) { // successfully updated $tmp["status"] = 1; //inserted } else { $tmp["status"] = 0; //not inserted } array_push($response["items"], $tmp); header("Content-Type: application/json; charset=utf-8", true); // echoing json result echo json_encode($response, JSON_UNESCAPED_UNICODE); } update($_POST["code"]); ?&gt; </code></pre> </div>

急!求大神帮忙!!从客户端传一张70M左右的图片到服务器!!调了几天没调出来!!

客户端: Client->Active = true; //Application->ProcessMessages(); ShowMessage("send"); TMemoryStream *pMS = new TMemoryStream(); f = new TStringList(); pMS->LoadFromFile(Edit1->Text); int bmpsize = pMS->Size; int count = bmpsize/(BUFSIZE-8); int mod = bmpsize%(BUFSIZE-8); int ret; for(i=0;i<count;i++) { memset(buf,'\0',sizeof(buf)); //包头 buf[0] = 0xFD; buf[1] = 0xFD; buf[2] = 0xFD; buf[3] = 0xFD; buf[4] = 0x00; buf[5] = 0x0B; //图片内容 pMS->ReadBuffer(buf+6,BUFSIZE-8); //包尾 buf[BUFSIZE-2] = 0xFD; buf[BUFSIZE-1] = 0x0D; ret = Client->Socket->SendBuf(buf,BUFSIZE); while(ret <= 0) { errcount++; ret = Client->Socket->SendBuf(buf,BUFSIZE); } f->Add(ret); Sleep(10); } //最后的不完整包 if(mod != 0) { memset(buf,'\0',sizeof(buf)); buf[0] = 0xFD; buf[1] = 0xFD; buf[2] = 0xFD; buf[3] = 0xFD; buf[4] = 0x00; buf[5] = 0x0B; pMS->ReadBuffer(buf+6,mod); buf[6+mod] = 0xFD; buf[7+mod] = 0x0B; ret = Client->Socket->SendBuf(buf,mod+8); while(ret <= 0) { errcount++; ret = Client->Socket->SendBuf(buf,mod+8); } f->Add(mod); f->SaveToFile("f:\\send.txt"); } f->Add(ret); ShowMessage("发送完成"); delete pMS; delete f; Client->Active = false; 服务端: if(0 == flag) { fd = fopen("F:\\RAD2010\\server\\image\\1.bmp","ab+"); flag = 1; } int datalen = Socket->ReceiveLength(); if(datalen >= RECSIZE) size = RECSIZE; else size = datalen; memset(buf,'\0',sizeof(buf)); int ret = Socket->ReceiveBuf(buf,size); //判断是否含包头 if(buf[0] == 0xFD && buf[1] == 0xFD && buf[2] == 0xFD && buf[3] == 0xFD) { if(begin == 1) { memset(temp,'\0',sizeof(temp)); count = 0; position = 0; //ShowMessage("err"); } begin = 1; head = 6; } //判断是否含包尾 if((buf[ret-2] == 0xFD && buf[ret-1] == 0x0D) || (buf[ret-2] == 0xFD && buf[ret-1] == 0x0B)) { memcpy(temp+position,buf+head,size-head-2); count = count + size - head - 2; //把temp中的内容写到文件里面 if(fwrite(temp,count,1,fd) == 1) { f->Add(count); f->SaveToFile("f:\\rec.txt"); memset(temp,'\0',sizeof(temp)); } else { ShowMessage("error"); } position = 0; head = 0; begin = 0; //接收到最后一个包 if(buf[ret-2] == 0xFD && buf[ret-1] == 0x0B) { ShowMessage("接收成功"); fclose(fd); flag = 0; } } else { //把内容放到temp缓冲区Byte temp[110*1024]里面 memcpy(temp+position,buf+head,size-head); position = position + ret - head; count = count + size - head; head = 0; }

在中国程序员是青春饭吗?

今年,我也32了 ,为了不给大家误导,咨询了猎头、圈内好友,以及年过35岁的几位老程序员……舍了老脸去揭人家伤疤……希望能给大家以帮助,记得帮我点赞哦。 目录: 你以为的人生 一次又一次的伤害 猎头界的真相 如何应对互联网行业的「中年危机」 一、你以为的人生 刚入行时,拿着傲人的工资,想着好好干,以为我们的人生是这样的: 等真到了那一天,你会发现,你的人生很可能是这样的: ...

再不跳槽,应届毕业生拿的都比我多了!

跳槽几乎是每个人职业生涯的一部分,很多HR说“三年两跳”已经是一个跳槽频繁与否的阈值了,可为什么市面上有很多程序员不到一年就跳槽呢?他们不担心影响履历吗? PayScale之前发布的**《员工最短任期公司排行榜》中,两家码农大厂Amazon和Google**,以1年和1.1年的员工任期中位数分列第二、第四名。 PayScale:员工最短任期公司排行榜 意外的是,任期中位数极小的这两家公司,薪资...

我以为我学懂了数据结构,直到看了这个导图才发现,我错了

数据结构与算法思维导图

数据库——玩转SQL语句(以MySQL为例)

一、前言 照着大学的SQL server来学

技术大佬:我去,你写的 switch 语句也太老土了吧

昨天早上通过远程的方式 review 了两名新来同事的代码,大部分代码都写得很漂亮,严谨的同时注释也很到位,这令我非常满意。但当我看到他们当中有一个人写的 switch 语句时,还是忍不住破口大骂:“我擦,小王,你丫写的 switch 语句也太老土了吧!” 来看看小王写的代码吧,看完不要骂我装逼啊。 private static String createPlayer(PlayerTypes p...

华为初面+综合面试(Java技术面)附上面试题

华为面试整体流程大致分为笔试,性格测试,面试,综合面试,回学校等结果。笔试来说,华为的难度较中等,选择题难度和网易腾讯差不多。最后的代码题,相比下来就简单很多,一共3道题目,前2题很容易就AC,题目已经记不太清楚,不过难度确实不大。最后一题最后提交的代码过了75%的样例,一直没有发现剩下的25%可能存在什么坑。 笔试部分太久远,我就不怎么回忆了。直接将面试。 面试 如果说腾讯的面试是挥金如土...

和黑客斗争的 6 天!

互联网公司工作,很难避免不和黑客们打交道,我呆过的两家互联网公司,几乎每月每天每分钟都有黑客在公司网站上扫描。有的是寻找 Sql 注入的缺口,有的是寻找线上服务器可能存在的漏洞,大部分都...

讲一个程序员如何副业月赚三万的真实故事

loonggg读完需要3分钟速读仅需 1 分钟大家好,我是你们的校长。我之前讲过,这年头,只要肯动脑,肯行动,程序员凭借自己的技术,赚钱的方式还是有很多种的。仅仅靠在公司出卖自己的劳动时...

上班一个月,后悔当初着急入职的选择了

最近有个老铁,告诉我说,上班一个月,后悔当初着急入职现在公司了。他之前在美图做手机研发,今年美图那边今年也有一波组织优化调整,他是其中一个,在协商离职后,当时捉急找工作上班,因为有房贷供着,不能没有收入来源。所以匆忙选了一家公司,实际上是一个大型外包公司,主要派遣给其他手机厂商做外包项目。**当时承诺待遇还不错,所以就立马入职去上班了。但是后面入职后,发现薪酬待遇这块并不是HR所说那样,那个HR自...

总结了 150 余个神奇网站,你不来瞅瞅吗?

原博客再更新,可能就没了,之后将持续更新本篇博客。

副业收入是我做程序媛的3倍,工作外的B面人生是怎样的?

提到“程序员”,多数人脑海里首先想到的大约是:为人木讷、薪水超高、工作枯燥…… 然而,当离开工作岗位,撕去层层标签,脱下“程序员”这身外套,有的人生动又有趣,马上展现出了完全不同的A/B面人生! 不论是简单的爱好,还是正经的副业,他们都干得同样出色。偶尔,还能和程序员的特质结合,产生奇妙的“化学反应”。 @Charlotte:平日素颜示人,周末美妆博主 大家都以为程序媛也个个不修边幅,但我们也许...

MySQL数据库面试题(2020最新版)

文章目录数据库基础知识为什么要使用数据库什么是SQL?什么是MySQL?数据库三大范式是什么mysql有关权限的表都有哪几个MySQL的binlog有有几种录入格式?分别有什么区别?数据类型mysql有哪些数据类型引擎MySQL存储引擎MyISAM与InnoDB区别MyISAM索引与InnoDB索引的区别?InnoDB引擎的4大特性存储引擎选择索引什么是索引?索引有哪些优缺点?索引使用场景(重点)...

如果你是老板,你会不会踢了这样的员工?

有个好朋友ZS,是技术总监,昨天问我:“有一个老下属,跟了我很多年,做事勤勤恳恳,主动性也很好。但随着公司的发展,他的进步速度,跟不上团队的步伐了,有点...

我入职阿里后,才知道原来简历这么写

私下里,有不少读者问我:“二哥,如何才能写出一份专业的技术简历呢?我总感觉自己写的简历太烂了,所以投了无数份,都石沉大海了。”说实话,我自己好多年没有写过简历了,但我认识的一个同行,他在阿里,给我说了一些他当年写简历的方法论,我感觉太牛逼了,实在是忍不住,就分享了出来,希望能够帮助到你。 01、简历的本质 作为简历的撰写者,你必须要搞清楚一点,简历的本质是什么,它就是为了来销售你的价值主张的。往深...

程序员写出这样的代码,能不挨骂吗?

当你换槽填坑时,面对一个新的环境。能够快速熟练,上手实现业务需求是关键。但是,哪些因素会影响你快速上手呢?是原有代码写的不够好?还是注释写的不够好?昨夜...

离职半年了,老东家又发 offer,回不回?

有小伙伴问松哥这个问题,他在上海某公司,在离职了几个月后,前公司的领导联系到他,希望他能够返聘回去,他很纠结要不要回去? 俗话说好马不吃回头草,但是这个小伙伴既然感到纠结了,我觉得至少说明了两个问题:1.曾经的公司还不错;2.现在的日子也不是很如意。否则应该就不会纠结了。 老实说,松哥之前也有过类似的经历,今天就来和小伙伴们聊聊回头草到底吃不吃。 首先一个基本观点,就是离职了也没必要和老东家弄的苦...

HTTP与HTTPS的区别

面试官问HTTP与HTTPS的区别,我这样回答让他竖起大拇指!

程序员毕业去大公司好还是小公司好?

虽然大公司并不是人人都能进,但我仍建议还未毕业的同学,尽力地通过校招向大公司挤,但凡挤进去,你这一生会容易很多。 大公司哪里好?没能进大公司怎么办?答案都在这里了,记得帮我点赞哦。 目录: 技术氛围 内部晋升与跳槽 啥也没学会,公司倒闭了? 不同的人脉圈,注定会有不同的结果 没能去大厂怎么办? 一、技术氛围 纵观整个程序员技术领域,哪个在行业有所名气的大牛,不是在大厂? 而且众所...

程序员为什么千万不要瞎努力?

本文作者用对比非常鲜明的两个开发团队的故事,讲解了敏捷开发之道 —— 如果你的团队缺乏统一标准的环境,那么即使勤劳努力,不仅会极其耗时而且成果甚微,使用...

为什么程序员做外包会被瞧不起?

二哥,有个事想询问下您的意见,您觉得应届生值得去外包吗?公司虽然挺大的,中xx,但待遇感觉挺低,马上要报到,挺纠结的。

当HR压你价,说你只值7K,你该怎么回答?

当HR压你价,说你只值7K时,你可以流畅地回答,记住,是流畅,不能犹豫。 礼貌地说:“7K是吗?了解了。嗯~其实我对贵司的面试官印象很好。只不过,现在我的手头上已经有一份11K的offer。来面试,主要也是自己对贵司挺有兴趣的,所以过来看看……”(未完) 这段话主要是陪HR互诈的同时,从公司兴趣,公司职员印象上,都给予对方正面的肯定,既能提升HR的好感度,又能让谈判气氛融洽,为后面的发挥留足空间。...

面试阿里p7,被按在地上摩擦,鬼知道我经历了什么?

面试阿里p7被问到的问题(当时我只知道第一个):@Conditional是做什么的?@Conditional多个条件是什么逻辑关系?条件判断在什么时候执...

终于懂了TCP和UDP协议区别

终于懂了TCP和UDP协议区别

无代码时代来临,程序员如何保住饭碗?

编程语言层出不穷,从最初的机器语言到如今2500种以上的高级语言,程序员们大呼“学到头秃”。程序员一边面临编程语言不断推陈出新,一边面临由于许多代码已存在,程序员编写新应用程序时存在重复“搬砖”的现象。 无代码/低代码编程应运而生。无代码/低代码是一种创建应用的方法,它可以让开发者使用最少的编码知识来快速开发应用程序。开发者通过图形界面中,可视化建模来组装和配置应用程序。这样一来,开发者直...

面试了一个 31 岁程序员,让我有所触动,30岁以上的程序员该何去何从?

最近面试了一个31岁8年经验的程序猿,让我有点感慨,大龄程序猿该何去何从。

大三实习生,字节跳动面经分享,已拿Offer

说实话,自己的算法,我一个不会,太难了吧

程序员垃圾简历长什么样?

已经连续五年参加大厂校招、社招的技术面试工作,简历看的不下于万份 这篇文章会用实例告诉你,什么是差的程序员简历! 疫情快要结束了,各个公司也都开始春招了,作为即将红遍大江南北的新晋UP主,那当然要为小伙伴们做点事(手动狗头)。 就在公众号里公开征简历,义务帮大家看,并一一点评。《启舰:春招在即,义务帮大家看看简历吧》 一石激起千层浪,三天收到两百多封简历。 花光了两个星期的所有空闲时...

《Oracle Java SE编程自学与面试指南》最佳学习路线图(2020最新版)

01、Java入门(Getting Started);02、集成开发环境(IDE);03、项目结构(Eclipse JavaProject);04、类和对象(Classes and Objects);05:词法结构(Lexical Structure);06:数据类型和变量(Data Type and Variables);07:运算符(Operators);08:控制流程语句(Control Flow Statements);

Java岗开发3年,公司临时抽查算法,离职后这几题我记一辈子

前几天我们公司做了一件蠢事,非常非常愚蠢的事情。我原以为从学校出来之后,除了找工作有测试外,不会有任何与考试有关的事儿。 但是,天有不测风云,公司技术总监、人事总监两位大佬突然降临到我们事业线,叫上我老大,给我们组织了一场别开生面的“考试”。 那是一个风和日丽的下午,我翘着二郎腿,左手端着一杯卡布奇诺,右手抓着我的罗技鼠标,滚动着轮轴,穿梭在头条热点之间。 “淡黄的长裙~蓬松的头发...

大牛都会用的IDEA调试技巧!!!

导读 前天面试了一个985高校的实习生,问了他平时用什么开发工具,他想也没想的说IDEA,于是我抛砖引玉的问了一下IDEA的调试用过吧,你说说怎么设置断点...

面试官:你连SSO都不懂,就别来面试了

大厂竟然要考我SSO,卧槽。

终于,月薪过5万了!

来看几个问题想不想月薪超过5万?想不想进入公司架构组?想不想成为项目组的负责人?想不想成为spring的高手,超越99%的对手?那么本文内容是你必须要掌握的。本文主要详解bean的生命...

我说我懂多线程,面试官立马给我发了offer

不小心拿了几个offer,有点烦

自从喜欢上了B站这12个UP主,我越来越觉得自己是个废柴了!

不怕告诉你,我自从喜欢上了这12个UP主,哔哩哔哩成为了我手机上最耗电的软件,几乎每天都会看,可是吧,看的越多,我就越觉得自己是个废柴,唉,老天不公啊,不信你看看…… 间接性踌躇满志,持续性混吃等死,都是因为你们……但是,自己的学习力在慢慢变强,这是不容忽视的,推荐给你们! 都说B站是个宝,可是有人不会挖啊,没事,今天咱挖好的送你一箩筐,首先啊,我在B站上最喜欢看这个家伙的视频了,为啥 ,咱撇...

立即提问
相关内容推荐